(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    261097,       5318]
NotebookOptionsPosition[    243242,       5040]
NotebookOutlinePosition[    243640,       5056]
CellTagsIndexPosition[    243597,       5053]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"**", 
    RowBox[{"*", "Set", " ", "filepath"}]}], 
   "****)"}]}], "\[IndentingNewLine]", 
 RowBox[{"FilePath", " ", "=", 
  "\"\</Users/patrickhulme/Dropbox/Replicate/War_and_Responsibility/Output/\
Figure_6.pdf\>\""}]}], "Input",
 CellLabel->
  "In[2239]:=",ExpressionUUID->"8b71bbd9-b252-4b5f-8558-0594532fc725"],

Cell[BoxData["\<\"/Users/patrickhulme/Dropbox/Replicate/War_and_\
Responsibility/Output/Figure_6.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906888568311233*^9, 3.906888669414132*^9, 
   3.906888934018712*^9, 3.906889335996728*^9, 3.906891022934751*^9, 
   3.90689113732183*^9, 3.906891576734345*^9, 3.906891646251997*^9, 
   3.906891799747628*^9, 3.9068949646810637`*^9, 3.906896432211864*^9, 
   3.906896557294413*^9, 3.906897783934716*^9, 3.906898046423236*^9, 
   3.906898804581724*^9, 3.906899117835902*^9, 3.9068993668137827`*^9, 
   3.9068995078549643`*^9, 3.906899626552541*^9, 3.906966073155051*^9, 
   3.90696642008132*^9, 3.906966913820924*^9, 3.9069677187461357`*^9, 
   3.907656407936471*^9, 3.907660766928452*^9, 3.907661485580188*^9, 
   3.908622305693915*^9, 3.9086227449719563`*^9, 3.908622868166895*^9, 
   3.908627998744104*^9, {3.908629358259692*^9, 3.908629413452405*^9}, 
   3.908631069164876*^9, 3.9455279602359533`*^9, 3.945527991010003*^9, 
   3.9455284189834337`*^9, 3.945528895262*^9, 3.94552933574606*^9, 
   3.945686023688075*^9, 3.945951381620685*^9, 3.945952258076046*^9, 
   3.9459538152473183`*^9, 3.9459538711665983`*^9, {3.945953929797773*^9, 
   3.945953971290577*^9}},
 CellLabel->
  "Out[2240]=",ExpressionUUID->"260f6c8d-59fe-4c0f-ab99-4743dea2130a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$Assumptions", "=", 
  RowBox[{
   RowBox[{"t", ">", "0"}], " ", "&&", 
   RowBox[{"s", ">", "0"}], "&&", " ", 
   RowBox[{"t", "<", 
    RowBox[{"(", 
     RowBox[{"1", "/", "s"}], ")"}]}], "&&", 
   RowBox[{"a", ">", "0"}], " ", "&&", " ", 
   RowBox[{"beta", " ", ">", "0"}], " ", "&&", " ", 
   RowBox[{"k", " ", ">", " ", "0"}], " ", "&&", " ", 
   RowBox[{"k", "<", 
    RowBox[{"beta", "/", "t"}]}], "&&", 
   RowBox[{"s", "<", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"beta", " ", "t"}], ")"}]}]}]}]}]], "Input",
 CellLabel->
  "In[2241]:=",ExpressionUUID->"658034bb-bd3c-4942-b763-2115e93c5e52"],

Cell[BoxData[
 RowBox[{
  RowBox[{"t", ">", "0"}], "&&", 
  RowBox[{"s", ">", "0"}], "&&", 
  RowBox[{"t", "<", 
   FractionBox["1", "s"]}], "&&", 
  RowBox[{"a", ">", "0"}], "&&", 
  RowBox[{"beta", ">", "0"}], "&&", 
  RowBox[{"k", ">", "0"}], "&&", 
  RowBox[{"k", "<", 
   FractionBox["beta", "t"]}], "&&", 
  RowBox[{"s", "<", 
   FractionBox[
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}], 
    RowBox[{"beta", " ", "t"}]]}]}]], "Output",
 CellChangeTimes->{
  3.9459538289160547`*^9, 3.945953871196607*^9, {3.945953929815588*^9, 
   3.945953971324016*^9}},
 CellLabel->
  "Out[2241]=",ExpressionUUID->"4e3abbcf-bb3b-4065-92cf-64a791a1b372"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Node1P", " ", "=", " ", 
    RowBox[{"d", "-", "a"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node2P", " ", "=", 
    RowBox[{"d", "-", "a"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node3P", " ", "=", "d"}], "\[IndentingNewLine]", 
   RowBox[{"Node4P", " ", "=", " ", 
    RowBox[{"p", "-", 
     RowBox[{"s", "*", "f"}], "-", "a"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node5P", " ", "=", 
    RowBox[{"p", "-", 
     RowBox[{"s", "*", "f"}], "-", "a", " ", "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "p"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"k", "*", 
        RowBox[{"f", "/", "beta"}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"Node6P", "=", 
    RowBox[{"p", "-", 
     RowBox[{"s", "*", "f"}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "p"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"k", "*", 
        RowBox[{"f", "/", "beta"}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"Node1C", " ", "=", " ", 
    RowBox[{"beta", "*", "d"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node2C", " ", "=", 
    RowBox[{"beta", "*", "d"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node3C", " ", "=", 
    RowBox[{"beta", "*", "d"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node4C", " ", "=", " ", 
    RowBox[{
     RowBox[{"p", "*", "beta"}], "-", 
     RowBox[{"s", "*", "f"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"Node5C", " ", "=", 
    RowBox[{"p", "*", "beta"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node6C", "=", 
    RowBox[{"p", "*", "beta"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node1S2", " ", "=", 
    RowBox[{"(", 
     RowBox[{"1", "-", "d"}], ")"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node2S2", " ", "=", 
    RowBox[{"(", 
     RowBox[{"1", "-", "d"}], ")"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node3S2", " ", "=", 
    RowBox[{"(", 
     RowBox[{"1", "-", "d"}], ")"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node4S2", " ", "=", 
    RowBox[{"1", "-", "p", "-", "c"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node5S2", " ", "=", 
    RowBox[{"1", "-", "p", "-", "c"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node6S2", "=", 
    RowBox[{"1", "-", "p", "-", "c"}]}]}]}]], "Input",
 CellChangeTimes->{{3.945953853102345*^9, 3.945953853740754*^9}},
 CellLabel->
  "In[2242]:=",ExpressionUUID->"54bb1ff8-b441-4562-8592-5aab8b43e6fe"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "+", "d"}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.9459539713336573`*^9}},
 CellLabel->
  "Out[2242]=",ExpressionUUID->"1c68779d-fcb5-461b-abeb-3e6da094a4b3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "+", "d"}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.945953971335181*^9}},
 CellLabel->
  "Out[2243]=",ExpressionUUID->"cc5b9547-9ec2-4114-91e3-f8fb45745b81"],

Cell[BoxData["d"], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.945953971336506*^9}},
 CellLabel->
  "Out[2244]=",ExpressionUUID->"e80376e5-19a8-4c34-9b8d-49dfffe874f7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "+", "p", "-", 
  RowBox[{"f", " ", "s"}]}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.945953971337756*^9}},
 CellLabel->
  "Out[2245]=",ExpressionUUID->"6e3bb941-9037-4f3a-8df2-766ea62093b0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "-", 
  FractionBox[
   RowBox[{"f", " ", "k", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "p"}], ")"}]}], "beta"], "+", "p", "-", 
  RowBox[{"f", " ", "s"}]}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.945953971338847*^9}},
 CellLabel->
  "Out[2246]=",ExpressionUUID->"0531ae30-9c6f-4bab-a33e-a0626257229f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"f", " ", "k", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "p"}], ")"}]}], "beta"]}], "+", "p", "-", 
  RowBox[{"f", " ", "s"}]}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.945953971339899*^9}},
 CellLabel->
  "Out[2247]=",ExpressionUUID->"2a63e006-e12f-469a-9324-59b31d644cf7"],

Cell[BoxData[
 RowBox[{"beta", " ", "d"}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.9459539713408737`*^9}},
 CellLabel->
  "Out[2248]=",ExpressionUUID->"c6bba75a-3e6e-4912-b0c2-48f63a241495"],

Cell[BoxData[
 RowBox[{"beta", " ", "d"}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.945953971341857*^9}},
 CellLabel->
  "Out[2249]=",ExpressionUUID->"f5017cec-2ff8-40ab-9275-50f54cb70e8c"],

Cell[BoxData[
 RowBox[{"beta", " ", "d"}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.945953971342868*^9}},
 CellLabel->
  "Out[2250]=",ExpressionUUID->"fc0bdfca-57f6-4a03-a6f3-8cbaaa2a0a01"],

Cell[BoxData[
 RowBox[{
  RowBox[{"beta", " ", "p"}], "-", 
  RowBox[{"f", " ", "s"}]}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.9459539713438873`*^9}},
 CellLabel->
  "Out[2251]=",ExpressionUUID->"792aa4e0-8c3f-4ccf-b70a-2aa40e889847"],

Cell[BoxData[
 RowBox[{"beta", " ", "p"}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.945953971345015*^9}},
 CellLabel->
  "Out[2252]=",ExpressionUUID->"007947fa-8748-4cc0-a06d-4622bb34500b"],

Cell[BoxData[
 RowBox[{"beta", " ", "p"}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.945953971346183*^9}},
 CellLabel->
  "Out[2253]=",ExpressionUUID->"0ea18451-5950-4039-8c66-c0ab95f3690b"],

Cell[BoxData[
 RowBox[{"1", "-", "d"}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.945953971347286*^9}},
 CellLabel->
  "Out[2254]=",ExpressionUUID->"b6fd608e-6c1b-4e64-a02d-de456200a71a"],

Cell[BoxData[
 RowBox[{"1", "-", "d"}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.945953971348276*^9}},
 CellLabel->
  "Out[2255]=",ExpressionUUID->"42996cf2-1e89-4a65-a435-180287f80c25"],

Cell[BoxData[
 RowBox[{"1", "-", "d"}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.9459539713492527`*^9}},
 CellLabel->
  "Out[2256]=",ExpressionUUID->"d000d8a8-8143-4f69-9cfd-c3e77e569d33"],

Cell[BoxData[
 RowBox[{"1", "-", "c", "-", "p"}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.945953971350216*^9}},
 CellLabel->
  "Out[2257]=",ExpressionUUID->"fdd8a74c-1d66-469a-92cd-aceec3aa6a36"],

Cell[BoxData[
 RowBox[{"1", "-", "c", "-", "p"}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.945953971351184*^9}},
 CellLabel->
  "Out[2258]=",ExpressionUUID->"2d82e802-338f-4e71-9cbd-998b5356f241"],

Cell[BoxData[
 RowBox[{"1", "-", "c", "-", "p"}]], "Output",
 CellChangeTimes->{{3.9459538579057093`*^9, 3.9459538712033978`*^9}, {
  3.9459539298357897`*^9, 3.945953971352234*^9}},
 CellLabel->
  "Out[2259]=",ExpressionUUID->"fc52792b-e70c-4076-aafb-c46d794898a2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Node4P"], "Input",
 CellChangeTimes->{{3.8124197465025454`*^9, 3.812419797569867*^9}},
 CellLabel->
  "In[2260]:=",ExpressionUUID->"ea345e6b-d5a6-44b5-9abd-5d85abb9555a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "+", "p", "-", 
  RowBox[{"f", " ", "s"}]}]], "Output",
 CellChangeTimes->{{3.8124197495905733`*^9, 3.812419799994235*^9}, 
   3.8124260317614727`*^9, 3.812427228023155*^9, 3.812427656935439*^9, 
   3.8127542602286177`*^9, 3.81275469043906*^9, 3.81279297225566*^9, 
   3.812794688402398*^9, 3.8145660835257463`*^9, 3.814571103777553*^9, 
   3.814572671085354*^9, 3.814572927014537*^9, 3.814574098591984*^9, {
   3.81457741527503*^9, 3.814577427866959*^9}, 3.814580119234518*^9, 
   3.814582703774508*^9, 3.814586025948295*^9, 3.814613335480873*^9, 
   3.814628078433598*^9, 3.814628255586499*^9, 3.814628568457608*^9, 
   3.8146286592978697`*^9, 3.814646466583737*^9, 3.8146471791630573`*^9, 
   3.814649787610982*^9, 3.814656312416686*^9, 3.814663476920138*^9, 
   3.8146657295865793`*^9, 3.814723139542882*^9, 3.8147234230491467`*^9, 
   3.814723531023324*^9, 3.81472426229478*^9, 3.814740725694769*^9, 
   3.814746216284903*^9, 3.814746740598527*^9, 3.814746974653429*^9, 
   3.814747403124351*^9, {3.814748233740815*^9, 3.8147482454618893`*^9}, 
   3.8147484478209467`*^9, 3.814748518831437*^9, 3.814749844956551*^9, 
   3.814750024533986*^9, 3.8147510099226713`*^9, 3.814751978494487*^9, 
   3.814808028229335*^9, 3.814813052632237*^9, 3.81481334713302*^9, {
   3.814815002449789*^9, 3.814815024303362*^9}, 3.8148197616038847`*^9, 
   3.81481983182458*^9, 3.816977141366825*^9, 3.816985862163344*^9, 
   3.859217740249302*^9, 3.859217894514666*^9, 3.859217933360743*^9, 
   3.8592180813918533`*^9, 3.859218555253516*^9, 3.8592395641790237`*^9, 
   3.859245695439624*^9, 3.8594116355661716`*^9, 3.859589402894483*^9, 
   3.859591936005822*^9, 3.859592372031446*^9, 3.862969884713313*^9, 
   3.862971037755966*^9, 3.865254514929685*^9, 3.865291842123225*^9, 
   3.86529338028883*^9, 3.865294431566347*^9, 3.865294709361144*^9, 
   3.865295191254985*^9, 3.868400614180087*^9, 3.870021459831683*^9, 
   3.870100802507927*^9, 3.906486945547474*^9, 3.9064870048810987`*^9, 
   3.90649305590399*^9, 3.9065345436039886`*^9, 3.906536911660789*^9, 
   3.906561449868783*^9, 3.906830315439863*^9, 3.906830947422867*^9, 
   3.9068322993868723`*^9, 3.9068331693621273`*^9, 3.906833643819265*^9, 
   3.906869628418577*^9, 3.906870240529244*^9, 3.9068707952025146`*^9, 
   3.906871027929668*^9, 3.906871373519108*^9, 3.906871409679462*^9, 
   3.906873170163701*^9, 3.90688857213907*^9, 3.906888672795486*^9, 
   3.906888934088098*^9, 3.906889338317544*^9, 3.906891026006542*^9, 
   3.906891137415491*^9, 3.906891576830635*^9, 3.90689164958397*^9, 
   3.906891799841449*^9, 3.906894964778398*^9, 3.9068964357027397`*^9, 
   3.906896557434651*^9, 3.9068977840577593`*^9, 3.906898046549595*^9, 
   3.906898804712263*^9, 3.906899117977853*^9, 3.906899366959161*^9, 
   3.906899508003948*^9, 3.906899626668961*^9, 3.906966423659649*^9, 
   3.906966913940318*^9, 3.90696771887272*^9, 3.9076564079538927`*^9, 
   3.907660766957222*^9, 3.907661485602702*^9, 3.90862230572283*^9, 
   3.908622744997703*^9, 3.90862286820024*^9, 3.908628006545783*^9, {
   3.9086293582971487`*^9, 3.908629413491405*^9}, 3.9086310692091722`*^9, {
   3.945527963742873*^9, 3.9455279910287237`*^9}, 3.945528419010878*^9, 
   3.9455288952849197`*^9, 3.9455293357721767`*^9, 3.9456860237141027`*^9, 
   3.9459513864886703`*^9, {3.9459522581045847`*^9, 3.945952275795227*^9}, 
   3.945953871230722*^9, {3.945953929857964*^9, 3.9459539713629103`*^9}},
 CellLabel->
  "Out[2260]=",ExpressionUUID->"fd5b98e3-6a59-48b1-a61a-6d7f5db3afbf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PUSG1", " ", "=", " ", "Node4P"}]], "Input",
 CellChangeTimes->{{3.812398341344249*^9, 3.812398359768594*^9}, 
   3.812419838690118*^9},
 CellLabel->
  "In[2261]:=",ExpressionUUID->"8ae6ab1f-8a70-426f-bab8-142a64cadb04"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "+", "p", "-", 
  RowBox[{"f", " ", "s"}]}]], "Output",
 CellChangeTimes->{
  3.8123983619551983`*^9, 3.812398717897027*^9, 3.812419841008668*^9, 
   3.8124260367079077`*^9, 3.812427231825337*^9, 3.812427660341072*^9, 
   3.812754264022407*^9, 3.812754692232346*^9, 3.8127929741263447`*^9, 
   3.8127946902763844`*^9, 3.8145660855322647`*^9, 3.814571107627377*^9, 
   3.814572673019929*^9, 3.814572929040038*^9, 3.814574100755496*^9, 
   3.814577430719771*^9, 3.814580125922846*^9, 3.814582706711092*^9, 
   3.814586028260397*^9, 3.814613338514593*^9, 3.814628080740519*^9, 
   3.814628257597754*^9, 3.814628570270149*^9, 3.814628661013995*^9, 
   3.814647186621121*^9, 3.8146497901429987`*^9, 3.8146563145899057`*^9, 
   3.814663479264289*^9, 3.814665731527388*^9, 3.814723141870756*^9, 
   3.814723424973961*^9, 3.8147235325761747`*^9, 3.814724264332039*^9, 
   3.814740727667358*^9, 3.814746218238093*^9, 3.8147467428607807`*^9, 
   3.814746976705476*^9, 3.814747405346673*^9, 3.814748248371532*^9, 
   3.814748449855255*^9, 3.814748520931347*^9, 3.814749846941626*^9, 
   3.814750026924737*^9, 3.8147510120381603`*^9, 3.814751981040401*^9, 
   3.8148080306448717`*^9, 3.814813054619276*^9, 3.8148133493799543`*^9, {
   3.814815014117041*^9, 3.814815026196164*^9}, 3.8148198341525507`*^9, 
   3.816977144185865*^9, 3.8169858646843224`*^9, 3.859213599702465*^9, 
   3.859217742087132*^9, 3.8592178945209217`*^9, 3.859217933367934*^9, 
   3.859218081412888*^9, 3.8592185552747507`*^9, 3.859239565955763*^9, 
   3.859245695452011*^9, 3.8594116356066*^9, 3.85958940292507*^9, 
   3.859591936030884*^9, 3.859592372048829*^9, 3.862969886280472*^9, 
   3.862971037767758*^9, 3.8652545149504547`*^9, 3.865291843958461*^9, 
   3.865293380314204*^9, 3.865294431573903*^9, 3.865294709383821*^9, 
   3.865295191264477*^9, 3.868400614203196*^9, 3.870021459837966*^9, 
   3.870100802519127*^9, 3.906486949999197*^9, 3.906487008696883*^9, 
   3.9064930581145573`*^9, 3.906534543615692*^9, 3.9065369116723137`*^9, 
   3.906561452225183*^9, 3.9068303172117*^9, 3.906830948803277*^9, 
   3.90683230094977*^9, 3.906833170667447*^9, 3.906833645404379*^9, 
   3.906869628424061*^9, 3.906870242660509*^9, 3.9068707970459337`*^9, 
   3.9068710279516582`*^9, 3.906871373527774*^9, 3.906871409704259*^9, 
   3.906873170174745*^9, 3.9068885745553913`*^9, 3.906888674656563*^9, 
   3.9068889341107616`*^9, 3.9068893399718027`*^9, 3.906891027697756*^9, 
   3.906891137442872*^9, 3.906891576855763*^9, 3.906891651093637*^9, 
   3.9068917998507233`*^9, 3.906894964795446*^9, 3.9068964382705*^9, 
   3.9068965574593077`*^9, 3.906897784075962*^9, 3.906898046569565*^9, 
   3.906898804732185*^9, 3.9068991180019073`*^9, 3.906899366982675*^9, 
   3.9068995080264263`*^9, 3.9068996266823387`*^9, 3.906966425064148*^9, 
   3.906966913955151*^9, 3.906967718892207*^9, 3.907656407967952*^9, 
   3.907660766960999*^9, 3.907661485612965*^9, 3.908622305727405*^9, 
   3.908622745007876*^9, 3.908622868204834*^9, 3.908628008203236*^9, {
   3.908629358301296*^9, 3.9086294134965487`*^9}, 3.908631069214837*^9, 
   3.945527991044113*^9, 3.945528419014505*^9, 3.945528895292471*^9, 
   3.945529335774856*^9, 3.945686023717784*^9, 3.94595138776438*^9, {
   3.945952258108334*^9, 3.94595227581434*^9}, 3.945953871234591*^9, {
   3.9459539298677588`*^9, 3.945953971367262*^9}},
 CellLabel->
  "Out[2261]=",ExpressionUUID->"3840a417-d2f1-4363-add1-417ba24481a3"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8123987138447742`*^9, 3.812398715548684*^9}, 
   3.812419848593663*^9},
 NumberMarks->False,
 CellLabel->
  "In[2262]:=",ExpressionUUID->"7289fde1-7696-493d-9129-055ea222d13b"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.814819821232368*^9, 3.8148198289492702`*^9}},
 CellLabel->
  "In[2263]:=",ExpressionUUID->"491f5257-8116-48b4-917f-552188ea19ee"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8127542734186707`*^9, 3.812754273431555*^9}},
 CellLabel->
  "In[2264]:=",ExpressionUUID->"c1fa1cc6-53c7-4f5b-87d0-c39caa201e86"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"p", " ", "=", " ", 
   RowBox[{"f", "/", 
    RowBox[{"(", 
     RowBox[{"f", "+", "t"}], ")"}]}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8123984144543247`*^9, 3.812398426652342*^9}, {
   3.8127541488781147`*^9, 3.81275419497545*^9}, {3.8127546707114153`*^9, 
   3.812754695069058*^9}, {3.8127945706095123`*^9, 3.812794583458572*^9}, {
   3.812794617639207*^9, 3.812794694916943*^9}, 3.812795569970971*^9, {
   3.8127956065556507`*^9, 3.812795610369285*^9}},
 CellLabel->
  "In[2265]:=",ExpressionUUID->"872ab524-b5ad-49f7-945c-3dc0caf0a113"],

Cell[BoxData[
 FractionBox["f", 
  RowBox[{"f", "+", "t"}]]], "Output",
 CellChangeTimes->{
  3.8123984286207943`*^9, {3.812398739939934*^9, 3.8123987426040792`*^9}, 
   3.812419858210994*^9, 3.812426040732464*^9, 3.812427234833325*^9, 
   3.812427670657199*^9, 3.81275427711449*^9, 3.812754696504015*^9, 
   3.812792976546193*^9, 3.812794696543561*^9, 3.8127955717843933`*^9, 
   3.81279561262225*^9, 3.8145660879867773`*^9, 3.814571109908819*^9, 
   3.8145726752689323`*^9, 3.8145729320585833`*^9, 3.814574103516272*^9, 
   3.81457743388205*^9, 3.814580137247307*^9, 3.814582709705422*^9, 
   3.814586030564981*^9, 3.8146133435354958`*^9, 3.8146280834959383`*^9, 
   3.8146282597035*^9, 3.8146285727911386`*^9, 3.814628663012671*^9, 
   3.814646536333753*^9, 3.8146471885524607`*^9, 3.814649792343522*^9, 
   3.814656316606295*^9, 3.814663481511673*^9, 3.814665734283771*^9, 
   3.814723145765933*^9, 3.814723426682521*^9, 3.814723534990629*^9, 
   3.814724266798855*^9, 3.814740729729248*^9, 3.814746220138658*^9, 
   3.8147467450188503`*^9, 3.814746979107338*^9, 3.814747408225863*^9, 
   3.814748251140883*^9, 3.814748452101842*^9, 3.8147485229571753`*^9, 
   3.8147498491197844`*^9, 3.814750029091498*^9, 3.8147510141202307`*^9, 
   3.814751984341198*^9, 3.814808033037092*^9, 3.814813057093933*^9, 
   3.81481335159833*^9, 3.8148143394860697`*^9, 3.814815029020791*^9, 
   3.814819734409648*^9, 3.814819836603105*^9, 3.8169771464457827`*^9, 
   3.8169858673420677`*^9, 3.859213604127096*^9, 3.859217743863834*^9, 
   3.8592178945526943`*^9, 3.8592179333896217`*^9, 3.859218081441146*^9, 
   3.85921855531015*^9, 3.8592395687719088`*^9, 3.859245695484495*^9, 
   3.85941163565913*^9, 3.859589402965304*^9, 3.859591936065839*^9, 
   3.859592372092162*^9, 3.862969888642459*^9, 3.862971037804858*^9, 
   3.865254514984091*^9, 3.865291845898252*^9, 3.8652933803517933`*^9, 
   3.8652944316145573`*^9, 3.865294709414094*^9, 3.865295191294962*^9, 
   3.868400614236869*^9, 3.870021459860898*^9, 3.870100802546472*^9, 
   3.90648701185217*^9, 3.90649306171591*^9, 3.9065345436349497`*^9, 
   3.9065369116889143`*^9, 3.9065614549911757`*^9, 3.906830318610661*^9, 
   3.906830950303115*^9, 3.9068323023595552`*^9, 3.9068331723848953`*^9, 
   3.90683364704532*^9, 3.9068696284576283`*^9, 3.906870254451532*^9, 
   3.906870799183868*^9, 3.906871027981391*^9, 3.906871373563452*^9, 
   3.90687140974013*^9, 3.9068731701952143`*^9, 3.9068886763699207`*^9, 
   3.9068889341407337`*^9, 3.90688934315525*^9, 3.906891030113496*^9, 
   3.9068911374777737`*^9, 3.906891576887438*^9, 3.9068916528116617`*^9, 
   3.906891799876992*^9, 3.906894964822357*^9, 3.906896439912402*^9, 
   3.906896557485078*^9, 3.906897784109928*^9, 3.90689804659433*^9, 
   3.906898804757866*^9, 3.9068991180310097`*^9, 3.906899367010393*^9, 
   3.906899508058786*^9, 3.906899626705255*^9, 3.90696642658596*^9, 
   3.906966913974984*^9, 3.9069677189167356`*^9, 3.907656407975688*^9, 
   3.907660766976766*^9, 3.9076614856294947`*^9, 3.908622305743938*^9, 
   3.908622745022476*^9, 3.90862286821701*^9, 3.908628009443779*^9, {
   3.908629358318759*^9, 3.908629413509789*^9}, 3.908631069232185*^9, {
   3.9455279693823423`*^9, 3.94552799107198*^9}, 3.9455284190320377`*^9, 
   3.945528895302907*^9, 3.945529335793002*^9, 3.945686023727192*^9, 
   3.9459513889246798`*^9, {3.945952258135111*^9, 3.945952275833743*^9}, 
   3.9459538712535686`*^9, {3.945953929884362*^9, 3.945953971385242*^9}},
 CellLabel->
  "Out[2265]=",ExpressionUUID->"22ec67f1-49ee-47e3-8a1d-bccee72ea6ba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["PUSG1"], "Input",
 CellChangeTimes->{{3.9068323040696373`*^9, 3.9068323055988493`*^9}},
 CellLabel->
  "In[2266]:=",ExpressionUUID->"8d10f708-dd52-48b7-8837-9851b0d0a3c2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "-", 
  RowBox[{"f", " ", "s"}], "+", 
  FractionBox["f", 
   RowBox[{"f", "+", "t"}]]}]], "Output",
 CellChangeTimes->{
  3.8123986482441397`*^9, 3.812398751894994*^9, 3.812419863058622*^9, 
   3.812426045461879*^9, 3.812427237597538*^9, 3.8124276769399223`*^9, 
   3.8127542878897543`*^9, 3.812754699085227*^9, 3.812792980972949*^9, 
   3.81279470240171*^9, 3.8127955743710957`*^9, 3.812795615115451*^9, 
   3.814566090753726*^9, 3.8145711132581463`*^9, 3.814572677721115*^9, 
   3.8145729350168543`*^9, 3.814574106089093*^9, 3.814577438959589*^9, 
   3.814580143338106*^9, 3.8145827147093678`*^9, 3.8145860333382*^9, 
   3.814613349776353*^9, 3.814628086146081*^9, 3.814628261858967*^9, 
   3.814628574937962*^9, 3.814628665383719*^9, 3.814646538577052*^9, 
   3.814647190264256*^9, 3.814649794881838*^9, 3.8146563187334433`*^9, 
   3.814663484377804*^9, 3.814665738761632*^9, 3.814723148391204*^9, 
   3.81472342898365*^9, 3.8147235367143097`*^9, 3.814724268773589*^9, 
   3.814740732650961*^9, 3.8147462222993526`*^9, 3.814746747103343*^9, 
   3.814746981390012*^9, 3.814747411297194*^9, 3.814748525444672*^9, 
   3.814749851321308*^9, 3.8147500313759823`*^9, 3.814751018188012*^9, 
   3.81475198737291*^9, 3.8148080362029343`*^9, 3.814813059953784*^9, 
   3.814813353525381*^9, 3.814815031548544*^9, 3.81481984029342*^9, 
   3.8169771489430103`*^9, 3.816985869825254*^9, 3.859213605667845*^9, 
   3.859217745624218*^9, 3.859217894558703*^9, 3.859217933395116*^9, 
   3.859218081449367*^9, 3.859218555316627*^9, 3.859239570437171*^9, 
   3.859245695504209*^9, 3.859411635671438*^9, 3.85958940299291*^9, 
   3.85959193607903*^9, 3.85959237211982*^9, 3.862969890094736*^9, 
   3.86297103781638*^9, 3.8652545150041924`*^9, 3.865291848845146*^9, 
   3.865293380360845*^9, 3.865294431621958*^9, 3.865294709425355*^9, 
   3.865295191303042*^9, 3.8684006142540073`*^9, 3.870021459878433*^9, 
   3.870100802552855*^9, 3.906487018717223*^9, 3.906493064683366*^9, 
   3.906534543646164*^9, 3.9065369117000437`*^9, 3.9065614569851513`*^9, 
   3.90683032019425*^9, 3.906830951591552*^9, 3.906832306201851*^9, 
   3.906833174138242*^9, 3.906833649028223*^9, 3.906869628482409*^9, 
   3.906870254474704*^9, 3.906870802844554*^9, 3.906871028006421*^9, 
   3.90687137358631*^9, 3.906871409748085*^9, 3.906873170201581*^9, 
   3.906888678225545*^9, 3.90688893415163*^9, 3.9068893451108437`*^9, 
   3.906891032296767*^9, 3.906891137485977*^9, 3.906891576895772*^9, 
   3.9068916546851807`*^9, 3.906891799885442*^9, 3.9068949648308887`*^9, 
   3.906896442141449*^9, 3.906896557498269*^9, 3.9068977841205397`*^9, 
   3.906898046606625*^9, 3.906898804770144*^9, 3.906899118041338*^9, 
   3.9068993670242558`*^9, 3.906899508071535*^9, 3.906899626714053*^9, 
   3.906966427948567*^9, 3.9069669139878187`*^9, 3.906967718928298*^9, 
   3.907656407978425*^9, 3.9076607669799747`*^9, 3.9076614856397057`*^9, 
   3.9086223057472973`*^9, 3.908622745025819*^9, 3.908622868224741*^9, 
   3.908628010668103*^9, {3.908629358330523*^9, 3.908629413519053*^9}, 
   3.908631069243642*^9, {3.945527971804092*^9, 3.945527991075053*^9}, 
   3.9455284190349283`*^9, 3.945528895311056*^9, 3.945529335795586*^9, 
   3.945686023729816*^9, 3.9459513903273706`*^9, {3.9459522581383667`*^9, 
   3.945952275837475*^9}, 3.9459538712568407`*^9, {3.945953929887577*^9, 
   3.945953971388812*^9}},
 CellLabel->
  "Out[2266]=",ExpressionUUID->"017c2580-a6f1-4802-980f-365ff7c09f64"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[PartialD]", "f"], 
  RowBox[{"(", "PUSG1", ")"}]}]], "Input",
 CellChangeTimes->{{3.81241989420006*^9, 3.8124198950487623`*^9}, {
  3.812754298918442*^9, 3.8127543015603743`*^9}},
 NumberMarks->False,
 CellLabel->
  "In[2267]:=",ExpressionUUID->"9f9e1ad6-f8cf-4873-a988-51cab06582b5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "s"}], "-", 
  FractionBox["f", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"f", "+", "t"}], ")"}], "2"]], "+", 
  FractionBox["1", 
   RowBox[{"f", "+", "t"}]]}]], "Output",
 CellChangeTimes->{{3.812419891113946*^9, 3.812419897749814*^9}, 
   3.8124260498643093`*^9, 3.81242724211744*^9, 3.812427681871557*^9, 
   3.812754303615315*^9, 3.812754701685507*^9, 3.8127929832526007`*^9, 
   3.812794706194186*^9, 3.812795576803995*^9, 3.8127956175011177`*^9, 
   3.814566093037415*^9, 3.814571115782362*^9, 3.814572681378829*^9, 
   3.814572937694624*^9, 3.814574108589675*^9, 3.814577441502507*^9, 
   3.814580148251808*^9, 3.8145827185563927`*^9, 3.814586036102522*^9, 
   3.8146133533010902`*^9, 3.814628088466599*^9, 3.814628264111528*^9, 
   3.814628577399145*^9, 3.814628667187015*^9, 3.814646540358029*^9, 
   3.814647192629271*^9, 3.8146497985219584`*^9, 3.8146563206697903`*^9, 
   3.814663486700309*^9, 3.814665741300959*^9, 3.814723150140678*^9, 
   3.814723431158534*^9, 3.81472353910959*^9, 3.814724271076666*^9, 
   3.8147407350909*^9, 3.814746225842161*^9, 3.814746750284349*^9, 
   3.814746985179916*^9, 3.814747413736189*^9, 3.814748527468358*^9, 
   3.8147498535498457`*^9, 3.81475003381639*^9, 3.814751020832621*^9, 
   3.814808039007406*^9, 3.814813063233756*^9, 3.814813356199567*^9, 
   3.8148150339223547`*^9, 3.814819842586719*^9, 3.816977151831726*^9, 
   3.816985872175373*^9, 3.859213607387109*^9, 3.8592177476060467`*^9, 
   3.859217894604641*^9, 3.8592179334082537`*^9, 3.8592180814672527`*^9, 
   3.859218555334813*^9, 3.8592395721859837`*^9, 3.859245695528492*^9, 
   3.859411635707617*^9, 3.859589403007696*^9, 3.859591936103753*^9, 
   3.8595923721340923`*^9, 3.862969892144026*^9, 3.862971037842082*^9, 
   3.865254515026904*^9, 3.8652918514623537`*^9, 3.8652933803800488`*^9, 
   3.8652944316479483`*^9, 3.8652947094448223`*^9, 3.865295191324333*^9, 
   3.868400614260146*^9, 3.870021459884737*^9, 3.870100802570836*^9, 
   3.906487021463571*^9, 3.9064930678958282`*^9, 3.906534543659279*^9, 
   3.9065369117034597`*^9, 3.906561461034581*^9, 3.9068303220286713`*^9, 
   3.906830953467863*^9, 3.906832307876615*^9, 3.906833175401786*^9, 
   3.906833650965391*^9, 3.906869628487974*^9, 3.906870254480809*^9, 
   3.9068708051951733`*^9, 3.906871028013762*^9, 3.906871373594036*^9, 
   3.906871409773446*^9, 3.906873170209388*^9, 3.9068886801026*^9, 
   3.9068889341748133`*^9, 3.90688934803726*^9, 3.906891034063633*^9, 
   3.906891137510461*^9, 3.906891576922989*^9, 3.906891657593142*^9, 
   3.906891799900334*^9, 3.9068949648461533`*^9, 3.906896444118167*^9, 
   3.906896557516226*^9, 3.9068977841395607`*^9, 3.906898046624043*^9, 
   3.906898804787847*^9, 3.9068991180631227`*^9, 3.906899367049569*^9, 
   3.906899508094927*^9, 3.906899626727407*^9, 3.90696642963468*^9, 
   3.906966913996881*^9, 3.906967718947838*^9, 3.907656407984128*^9, 
   3.907660766984846*^9, 3.907661485643223*^9, 3.90862230575303*^9, 
   3.9086227450291224`*^9, 3.908622868228551*^9, 3.908628014984954*^9, {
   3.9086293583349133`*^9, 3.9086294135259333`*^9}, 3.9086310692485113`*^9, {
   3.9455279738930063`*^9, 3.9455279910896072`*^9}, 3.945528419038664*^9, 
   3.94552889531592*^9, 3.945529335799211*^9, 3.945686023732938*^9, 
   3.945951391777021*^9, {3.9459522581426697`*^9, 3.945952275853113*^9}, 
   3.945953871261015*^9, {3.945953929898561*^9, 3.945953971399775*^9}},
 CellLabel->
  "Out[2267]=",ExpressionUUID->"8718518b-6124-42cf-a1ae-b35b45715f39"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "f"], 
     RowBox[{"(", "PUSG1", ")"}]}], "\[Equal]", "0"}], ",", "f", ",", 
   "NonNegativeReals"}], "]"}]], "Input",
 CellChangeTimes->{
  3.812419948150194*^9, 3.812754329476198*^9, {3.862969898863276*^9, 
   3.862969901251643*^9}, 3.906561465207498*^9, {3.906830334637167*^9, 
   3.906830339165193*^9}},
 NumberMarks->False,
 CellLabel->
  "In[2268]:=",ExpressionUUID->"7f016cc2-ccdc-45ea-910d-079d99f81495"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"f", "\[Rule]", 
    TemplateBox[{
      RowBox[{
        RowBox[{"-", "t"}], "+", 
        SqrtBox[
         FractionBox["t", "s"]]}], 
      RowBox[{
        RowBox[{"s", "<", 
          FractionBox["1", "t"]}], "&&", 
        RowBox[{"beta", ">", 
          RowBox[{"-", 
            FractionBox[
             RowBox[{"k", " ", "t"}], 
             RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"s", " ", "t"}]}]]}]}]}]},
     "ConditionalExpression"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.812419945955167*^9, 3.812419953232877*^9}, 
   3.8124260544884567`*^9, 3.812427247019106*^9, 3.8124276858635387`*^9, 
   3.812754331955256*^9, 3.812754703728792*^9, 3.812792986221874*^9, 
   3.81279471080682*^9, 3.81279558027815*^9, 3.812795620988455*^9, 
   3.814566096501658*^9, 3.814571118037651*^9, 3.814572697392905*^9, 
   3.814572940146182*^9, 3.8145741109294977`*^9, 3.8145774439515343`*^9, 
   3.814580152817225*^9, 3.814582721192711*^9, 3.814586038595338*^9, 
   3.814613355776729*^9, 3.814628091790885*^9, 3.81462826609414*^9, 
   3.814628579842122*^9, 3.8146286692571087`*^9, 3.8146465424504843`*^9, 
   3.8146471945234747`*^9, 3.814649800972921*^9, 3.814656322736328*^9, 
   3.814663489366817*^9, 3.8146657439462633`*^9, 3.81472315272104*^9, 
   3.8147234347281923`*^9, 3.81472354128224*^9, 3.814724273516366*^9, 
   3.814740738352639*^9, 3.8147462277783747`*^9, 3.814746752583981*^9, 
   3.814746988723661*^9, 3.814747416218568*^9, 3.8147485300151854`*^9, 
   3.8147498556896353`*^9, 3.814750036510569*^9, 3.8147510233276243`*^9, 
   3.814808041245668*^9, 3.814813065687397*^9, 3.8148133583728647`*^9, 
   3.8148150358350477`*^9, 3.814819845020697*^9, 3.816977154407834*^9, 
   3.816985874895817*^9, 3.859213610813676*^9, 3.859217749224419*^9, 
   3.859217894652247*^9, 3.8592179334163647`*^9, 3.859218081473969*^9, 
   3.859218555341874*^9, 3.859245695540206*^9, 3.859411635759056*^9, 
   3.859589403036088*^9, 3.859591936135613*^9, 3.859592372161521*^9, 
   3.862969902101009*^9, 3.862971037855927*^9, 3.865254515099711*^9, 
   3.865293380390007*^9, 3.865294431679637*^9, 3.865294709456135*^9, 
   3.8652951913348227`*^9, 3.8684006143480053`*^9, 3.870021459970965*^9, 
   3.870100802606056*^9, 3.906487026430254*^9, 3.906493073103592*^9, 
   3.9065345436649523`*^9, 3.9065369117161007`*^9, 3.906561466735763*^9, {
   3.906830324132066*^9, 3.906830341821599*^9}, 3.9068309568682137`*^9, 
   3.906832309613694*^9, 3.906833176901531*^9, 3.906833653186213*^9, 
   3.906869628514481*^9, 3.9068702545146*^9, 3.906870812122546*^9, 
   3.906871028043989*^9, 3.9068713736255217`*^9, 3.906871409805237*^9, 
   3.9068731702417507`*^9, 3.906888682412861*^9, 3.906888934206211*^9, 
   3.906889349548497*^9, 3.9068910361303253`*^9, 3.906891137542049*^9, 
   3.9068915769548283`*^9, 3.9068916592610483`*^9, 3.906891799932749*^9, 
   3.906894964878297*^9, 3.906896446311183*^9, 3.906896557550043*^9, 
   3.906897784176054*^9, 3.906898046657707*^9, 3.9068988048223763`*^9, 
   3.906899118097268*^9, 3.90689936708422*^9, 3.906899508129998*^9, 
   3.9068996267506647`*^9, 3.906966430806203*^9, 3.9069669140210123`*^9, 
   3.906967718972633*^9, 3.907656408087963*^9, 3.907660767005292*^9, 
   3.9076614856618547`*^9, 3.9086223058025*^9, 3.908622745048015*^9, 
   3.908622868246332*^9, 3.908628016287883*^9, {3.908629358353915*^9, 
   3.9086294135441923`*^9}, 3.908631069268733*^9, 3.945527991103986*^9, 
   3.9455284190528107`*^9, 3.945528895333497*^9, 3.945529335813057*^9, 
   3.945686023746842*^9, 3.945951394785359*^9, {3.945952258158057*^9, 
   3.945952275869561*^9}, 3.945953871276421*^9, {3.9459539299143953`*^9, 
   3.945953971415893*^9}},
 CellLabel->
  "Out[2268]=",ExpressionUUID->"70df70bf-6627-4bd3-88b9-57365e24a22e"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.812419881244492*^9},
 NumberMarks->False,
 CellLabel->
  "In[2269]:=",ExpressionUUID->"3908e3fa-864e-4660-a1bb-a94309da703c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fstarsg1", " ", "=", " ", 
  RowBox[{
   RowBox[{"-", "t"}], "+", 
   SqrtBox[
    FractionBox["t", "s"]]}]}]], "Input",
 CellChangeTimes->{{3.8124199243012114`*^9, 3.812419924302507*^9}, 
   3.812419991770681*^9, 3.862969906961039*^9, 3.906561472683477*^9, 
   3.9068303505786867`*^9},
 CellLabel->
  "In[2270]:=",ExpressionUUID->"52930e94-608a-41f5-8721-3a912ac50b3a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  SqrtBox[
   FractionBox["t", "s"]]}]], "Output",
 CellChangeTimes->{
  3.8124199957707*^9, 3.8124260594505*^9, 3.812427251697599*^9, 
   3.812427689528627*^9, 3.81275470826819*^9, 3.812792990936635*^9, 
   3.812795626721561*^9, 3.814566099521689*^9, 3.814571121651198*^9, 
   3.814572700348008*^9, 3.8145729424453*^9, 3.8145741134900103`*^9, 
   3.814577451908657*^9, 3.814580155909635*^9, 3.8145827255129147`*^9, 
   3.814586041723249*^9, 3.814613359147645*^9, 3.814628095258524*^9, 
   3.8146282682970057`*^9, 3.814628582050508*^9, 3.814628671562737*^9, 
   3.814646545525571*^9, 3.814647102316758*^9, 3.814647197043067*^9, 
   3.814649803586893*^9, 3.814656325617194*^9, 3.814663493496319*^9, 
   3.814665746396489*^9, 3.814723155027945*^9, 3.814723437456197*^9, 
   3.814723543564581*^9, 3.814724276043313*^9, 3.814740742026873*^9, 
   3.814746230320505*^9, 3.814746755190529*^9, 3.814746991550625*^9, 
   3.814747418761162*^9, 3.814748531792286*^9, 3.814749857778323*^9, 
   3.814750039267797*^9, 3.814751026268059*^9, 3.814808044650544*^9, 
   3.814813068287694*^9, 3.81481336344897*^9, 3.8148150387060213`*^9, 
   3.814819847994569*^9, 3.8169771572973824`*^9, 3.81698587782226*^9, 
   3.8592136148765783`*^9, 3.8592177512988367`*^9, 3.8592178946729517`*^9, 
   3.859217933435163*^9, 3.859218081485812*^9, 3.8592185553641033`*^9, 
   3.859239577688517*^9, 3.8592456955648527`*^9, 3.8594116358014603`*^9, 
   3.85958940306979*^9, 3.859591936164274*^9, 3.859592372193343*^9, 
   3.862969908201809*^9, 3.862971037889285*^9, 3.865254515122984*^9, 
   3.865291856821048*^9, 3.865293380414406*^9, 3.8652944317141323`*^9, 
   3.865294709480468*^9, 3.8652951913589373`*^9, 3.868400614369562*^9, 
   3.870021459989174*^9, 3.870100802628805*^9, 3.906487031593561*^9, 
   3.906493106352873*^9, 3.9065345436792173`*^9, 3.9065369117215433`*^9, 
   3.906561473686076*^9, 3.906830351977414*^9, 3.906830979054846*^9, 
   3.906832311687634*^9, 3.906833178697707*^9, 3.9068336601038322`*^9, 
   3.9068696285227327`*^9, 3.906870254524269*^9, 3.9068709235961723`*^9, 
   3.906871028056744*^9, 3.9068713736447268`*^9, 3.90687140981631*^9, 
   3.906873170251815*^9, 3.9068886849042377`*^9, 3.906888934236253*^9, 
   3.9068893552240553`*^9, 3.906889411510206*^9, 3.906891038551874*^9, 
   3.9068911375700893`*^9, 3.9068915769819193`*^9, 3.906891660735386*^9, 
   3.906891799951674*^9, 3.906894964897143*^9, {3.9068964492443857`*^9, 
   3.90689646820811*^9}, 3.906896557574141*^9, 3.906897784201231*^9, 
   3.906898046678797*^9, 3.906898804843338*^9, 3.9068991181222754`*^9, 
   3.906899367108423*^9, 3.906899508156765*^9, 3.906899626768626*^9, 
   3.906966432221266*^9, 3.906966914036573*^9, 3.906967718994425*^9, 
   3.9076564081052217`*^9, 3.9076607670175247`*^9, 3.9076614856738777`*^9, 
   3.908622305813649*^9, 3.908622745058522*^9, 3.90862286825742*^9, 
   3.908628032194993*^9, {3.9086293583663187`*^9, 3.9086294135561123`*^9}, 
   3.90863106928054*^9, 3.945527991116145*^9, 3.945528035084124*^9, 
   3.945528419066338*^9, 3.945528895343218*^9, 3.94552933582487*^9, 
   3.945686023754849*^9, 3.9459514351854067`*^9, {3.9459522581751633`*^9, 
   3.945952275883713*^9}, 3.945953871289693*^9, {3.945953929927938*^9, 
   3.945953971430698*^9}},
 CellLabel->
  "Out[2270]=",ExpressionUUID->"a3d14a2b-e748-4824-94df-ed38f37d41b3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pstarsg1", " ", "=", " ", 
  RowBox[{"(", 
   RowBox[{"fstarsg1", " ", "/", 
    RowBox[{"(", 
     RowBox[{"fstarsg1", " ", "+", "t"}], ")"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.812398808263483*^9, 3.812398808497265*^9}, 
   3.812419917068081*^9, {3.812420027883767*^9, 3.812420030240163*^9}, {
   3.812420066687707*^9, 3.812420074727107*^9}},
 NumberMarks->False,
 CellLabel->
  "In[2271]:=",ExpressionUUID->"0b4e30f3-a84d-425e-90b3-db9eeba5a40a"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "t"}], "+", 
   SqrtBox[
    FractionBox["t", "s"]]}], 
  SqrtBox[
   FractionBox["t", "s"]]]], "Output",
 CellChangeTimes->{
  3.812420105025284*^9, 3.8124260643097553`*^9, 3.812427255563324*^9, 
   3.812427692764689*^9, 3.8127547200593777`*^9, 3.812792994956164*^9, 
   3.812795629454198*^9, 3.814566102094919*^9, 3.814571124274597*^9, 
   3.814572704249661*^9, 3.814572945189857*^9, 3.8145741160382032`*^9, 
   3.814577454571457*^9, 3.814580166111773*^9, 3.814582728594706*^9, 
   3.8145860441748047`*^9, 3.814613361725524*^9, 3.8146280987282953`*^9, 
   3.814628270453506*^9, 3.814628584812189*^9, 3.814628673482689*^9, 
   3.814646548642581*^9, 3.814647199697736*^9, 3.814649805688616*^9, 
   3.8146563276938543`*^9, 3.814663496081682*^9, 3.814665749148271*^9, 
   3.814723156794148*^9, 3.81472344061301*^9, 3.8147235460350027`*^9, 
   3.8147242787051067`*^9, 3.8147407461303167`*^9, 3.8147462331675663`*^9, 
   3.814746757293337*^9, 3.814746993449884*^9, 3.8147474215575533`*^9, 
   3.814748534261936*^9, 3.81474986003605*^9, 3.8147500418940277`*^9, 
   3.814751028773499*^9, 3.814808047244464*^9, 3.814813070424199*^9, 
   3.814813366036002*^9, 3.814815041863756*^9, 3.814819850652569*^9, 
   3.816977159881075*^9, 3.816985880145884*^9, 3.859213618167562*^9, 
   3.859217753007367*^9, 3.859217894679002*^9, 3.859217933447567*^9, 
   3.8592180815038443`*^9, 3.8592185553856173`*^9, 3.859239579505616*^9, 
   3.859245695584766*^9, 3.859411635812207*^9, 3.8595894030835457`*^9, 
   3.859591936178483*^9, 3.859592372206955*^9, 3.8629699100794067`*^9, 
   3.862971037917037*^9, 3.8652545151287127`*^9, 3.865291965350244*^9, 
   3.865293380436496*^9, 3.865294431721978*^9, 3.865294709505313*^9, 
   3.865295191381616*^9, 3.86840061437764*^9, 3.8700214599938707`*^9, 
   3.870100802635571*^9, 3.906487043631837*^9, 3.9064931343467407`*^9, 
   3.906534543692518*^9, 3.9065369117261677`*^9, 3.906561475326435*^9, 
   3.9068303543594723`*^9, 3.90683098045319*^9, 3.906832313101726*^9, 
   3.9068331800523577`*^9, 3.90683366198496*^9, 3.906869628546768*^9, 
   3.906870254544093*^9, 3.906870926068898*^9, 3.906871028079084*^9, 
   3.906871373654798*^9, 3.906871409841576*^9, 3.906873170265399*^9, 
   3.90688868709562*^9, 3.906888934243566*^9, 3.906889414663875*^9, 
   3.906891040397057*^9, 3.9068911375788193`*^9, 3.906891576990501*^9, 
   3.9068916625188923`*^9, 3.906891799967008*^9, 3.906894964912508*^9, {
   3.9068964512325907`*^9, 3.906896470075891*^9}, 3.906896557584689*^9, 
   3.9068977842114687`*^9, 3.9068980466909313`*^9, 3.906898804855578*^9, 
   3.906899118133313*^9, 3.9068993671222563`*^9, 3.906899508171245*^9, 
   3.9068996267816668`*^9, 3.906966438853785*^9, 3.906966914045597*^9, 
   3.906967719003812*^9, 3.907656408108056*^9, 3.9076607670209007`*^9, 
   3.90766148567731*^9, 3.908622305819462*^9, 3.908622745062252*^9, 
   3.908622868260928*^9, 3.9086280363530893`*^9, {3.908629358370511*^9, 
   3.908629413561301*^9}, 3.908631069287627*^9, 3.9455279911191*^9, 
   3.945528037251884*^9, 3.9455284190689917`*^9, 3.945528895347983*^9, 
   3.945529335828031*^9, 3.945686023757649*^9, 3.94595152578474*^9, {
   3.945952258178834*^9, 3.9459522758876133`*^9}, 3.945953871293436*^9, {
   3.9459539299316587`*^9, 3.9459539714355717`*^9}},
 CellLabel->
  "Out[2271]=",ExpressionUUID->"a59947b9-429d-402c-ae6d-78a6150fe465"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "pstarsg1", "]"}]], "Input",
 NumberMarks->False,
 CellLabel->
  "In[2272]:=",ExpressionUUID->"a21d9971-e38f-41a3-ba2e-020f7ddc3459"],

Cell[BoxData[
 RowBox[{"1", "-", 
  SqrtBox[
   RowBox[{"s", " ", "t"}]]}]], "Output",
 CellChangeTimes->{
  3.8592395819788923`*^9, 3.859245695598947*^9, 3.859411635850429*^9, 
   3.859589403111718*^9, 3.8595919362035313`*^9, 3.859592372234069*^9, 
   3.86296991197532*^9, 3.862971037928648*^9, 3.865254515146509*^9, 
   3.8652919674133*^9, 3.865293380444137*^9, 3.865294431750492*^9, 
   3.8652947095134573`*^9, 3.865295191392685*^9, 3.868400614394327*^9, 
   3.870021460010376*^9, 3.870100802653804*^9, 3.9064870478693666`*^9, 
   3.906493138026353*^9, 3.906534543696046*^9, 3.9065369117369623`*^9, 
   3.9065614771275187`*^9, 3.9068303567739897`*^9, 3.906830982072877*^9, 
   3.9068323148729057`*^9, 3.9068331818038797`*^9, 3.906833663235177*^9, 
   3.90686962855229*^9, 3.9068702545540752`*^9, 3.9068709285780497`*^9, 
   3.906871028088812*^9, 3.906871373670682*^9, 3.9068714098494997`*^9, 
   3.9068731702808867`*^9, 3.906888689255704*^9, 3.90688893426703*^9, 
   3.9068894165338783`*^9, 3.9068910422199593`*^9, 3.906891137603036*^9, 
   3.906891577013083*^9, 3.906891664028113*^9, 3.9068917999818707`*^9, 
   3.906894964927651*^9, 3.906896471548645*^9, 3.9068965576023684`*^9, 
   3.906897784230056*^9, 3.906898046708349*^9, 3.906898804872834*^9, 
   3.9068991181546593`*^9, 3.906899367142874*^9, 3.9068995081942053`*^9, 
   3.906899626794969*^9, 3.906966440392138*^9, 3.906966914058782*^9, 
   3.90696771902359*^9, 3.907656408113873*^9, 3.9076607670264053`*^9, 
   3.907661485683379*^9, 3.908622305828609*^9, 3.9086227450719852`*^9, 
   3.908622868271173*^9, 3.908628039477149*^9, {3.908629358380816*^9, 
   3.908629413571041*^9}, 3.908631069297183*^9, 3.9455279911283607`*^9, 
   3.945528038733159*^9, 3.9455284190796633`*^9, 3.9455288953553743`*^9, 
   3.9455293358389263`*^9, 3.945686023763533*^9, 3.9459519092810183`*^9, {
   3.9459522581925488`*^9, 3.945952275902239*^9}, 3.9459538713070498`*^9, {
   3.9459539299416037`*^9, 3.945953971449041*^9}},
 CellLabel->
  "Out[2272]=",ExpressionUUID->"7b9cd27d-6650-442a-b197-4d17c7ba0977"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.812420133156423*^9, 3.812420137924212*^9}, 
   3.81242609289252*^9},
 CellLabel->
  "In[2273]:=",ExpressionUUID->"d031db29-c301-4b31-b24d-ad8190a86451"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.812426095509748*^9, 3.8124260955111523`*^9}, 
   3.814646562186528*^9, {3.814646605677108*^9, 3.814646665806785*^9}, 
   3.906487083476822*^9},
 CellLabel->
  "In[2274]:=",ExpressionUUID->"db8ba6cf-038f-4eaf-9e0c-ebb3c3c5bdd4"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8146465537360477`*^9, 3.814646553737171*^9}},
 CellLabel->
  "In[2275]:=",ExpressionUUID->"d79aa3aa-564f-4611-91b2-dae2a7ffaf1f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", " ", "=", " ", "fstarsg1"}]], "Input",
 CellLabel->
  "In[2276]:=",ExpressionUUID->"90cbca63-54ce-482b-8f94-5b51905db857"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  SqrtBox[
   FractionBox["t", "s"]]}]], "Output",
 CellChangeTimes->{
  3.814647226488714*^9, 3.814649813414266*^9, 3.8146556413112307`*^9, 
   3.814656334335671*^9, 3.814663511748234*^9, 3.8146657607156343`*^9, 
   3.814723165811228*^9, 3.814723467215905*^9, 3.814723552382382*^9, 
   3.81472428377957*^9, 3.814740759479889*^9, 3.814746244601823*^9, 
   3.81474676584691*^9, 3.814747004386204*^9, 3.81474742754853*^9, 
   3.814748541889513*^9, 3.814749865883008*^9, 3.8147500474281197`*^9, 
   3.814751033722762*^9, 3.814808054078601*^9, 3.814813077290666*^9, 
   3.8148133726586742`*^9, 3.814815048849882*^9, 3.814819857985766*^9, 
   3.8169771699164877`*^9, 3.816985887564156*^9, 3.859213679234829*^9, 
   3.859217760269846*^9, 3.859217894729718*^9, 3.859217933491231*^9, 
   3.859218081544422*^9, 3.859218555439445*^9, 3.859243117987314*^9, 
   3.859245695667511*^9, 3.859411635964204*^9, 3.859589403196656*^9, 
   3.859591936301797*^9, 3.859592372317046*^9, 3.862969920082904*^9, 
   3.862971038016122*^9, 3.865254515288075*^9, 3.8652921960581627`*^9, 
   3.865293380512022*^9, 3.865294431833246*^9, 3.86529470957901*^9, 
   3.865295191457782*^9, 3.8684006144692698`*^9, 3.8700214600992947`*^9, 
   3.870100802716284*^9, 3.9064871416347733`*^9, 3.906493273514908*^9, 
   3.9065345437626657`*^9, 3.906536911771078*^9, 3.9065614924359694`*^9, 
   3.906830365525625*^9, 3.906830987681075*^9, 3.906832321752132*^9, 
   3.9068331872811947`*^9, 3.9068336714179363`*^9, 3.90686962865125*^9, 
   3.9068702546146393`*^9, 3.9068709368191347`*^9, 3.90687102815534*^9, 
   3.906871373722825*^9, 3.906871409924644*^9, 3.9068731703346767`*^9, 
   3.9068887086571617`*^9, 3.9068889343393784`*^9, 3.9068910443031282`*^9, 
   3.906891137634289*^9, 3.906891577046385*^9, 3.906891666171349*^9, 
   3.906891800006798*^9, 3.906894964955028*^9, 3.906896473834461*^9, 
   3.906896557632225*^9, 3.9068977842608624`*^9, 3.9068980467354317`*^9, 
   3.90689880490029*^9, 3.906899118189196*^9, 3.906899367172686*^9, 
   3.906899508224505*^9, 3.9068996268128777`*^9, 3.906966442377038*^9, 
   3.9069669140784073`*^9, 3.9069677190481157`*^9, 3.90765640813308*^9, 
   3.9076607670431767`*^9, 3.907661485696336*^9, 3.908622305844314*^9, 
   3.908622745083384*^9, 3.908622868282405*^9, 3.908628055663393*^9, {
   3.908629358392055*^9, 3.908629413585539*^9}, 3.908631069312744*^9, 
   3.945527991143252*^9, 3.945528040971889*^9, 3.945528419099152*^9, 
   3.945528895364353*^9, 3.945529335848815*^9, 3.945686023775586*^9, 
   3.9459521401240997`*^9, {3.94595225820362*^9, 3.94595227591324*^9}, 
   3.945953871323084*^9, {3.945953929951846*^9, 3.945953971464772*^9}},
 CellLabel->
  "Out[2276]=",ExpressionUUID->"3840328e-2edd-4001-bb13-4b9a1eb5eb7d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"dstarsg1", " ", "=", " ", 
   RowBox[{"pstarsg1", "+", "c"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.906889577006082*^9, 3.906889589197447*^9}},
 CellLabel->
  "In[2277]:=",ExpressionUUID->"612088e9-8534-4a64-87b2-acfe299ee834"],

Cell[BoxData[
 RowBox[{"c", "+", 
  FractionBox[
   RowBox[{
    RowBox[{"-", "t"}], "+", 
    SqrtBox[
     FractionBox["t", "s"]]}], 
   SqrtBox[
    FractionBox["t", "s"]]]}]], "Output",
 CellChangeTimes->{
  3.906889590019236*^9, 3.906891046576613*^9, 3.906891137660554*^9, 
   3.906891577072256*^9, 3.906891668323203*^9, 3.9068918000214043`*^9, 
   3.906894964963799*^9, 3.906896476533061*^9, 3.906896557642632*^9, 
   3.9068977842755737`*^9, 3.9068980467527323`*^9, 3.9068988049185257`*^9, 
   3.906899118211401*^9, 3.906899367186964*^9, 3.906899508249977*^9, 
   3.906899626826144*^9, 3.906966444158924*^9, 3.9069669140874977`*^9, 
   3.906967719057831*^9, 3.907656408144731*^9, 3.907660767046398*^9, 
   3.907661485705799*^9, 3.908622305847768*^9, 3.9086227450912952`*^9, 
   3.908622868290161*^9, 3.908628057035553*^9, {3.908629358400908*^9, 
   3.908629413596909*^9}, 3.9086310693178883`*^9, 3.945528042814315*^9, 
   3.945528419101913*^9, 3.945528895370428*^9, 3.945529335858461*^9, 
   3.945686023778393*^9, 3.945952141755045*^9, {3.945952258216056*^9, 
   3.945952275924644*^9}, 3.9459538713264923`*^9, {3.94595392996161*^9, 
   3.9459539714689007`*^9}},
 CellLabel->
  "Out[2277]=",ExpressionUUID->"fa075fe1-4230-4a43-82aa-9acb24b6ce4b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dstarsg1", " ", "=", 
  RowBox[{"Simplify", "[", "dstarsg1", "]"}]}]], "Input",
 CellChangeTimes->{3.9068895976755753`*^9},
 NumberMarks->False,
 CellLabel->
  "In[2278]:=",ExpressionUUID->"5f8ddee5-188d-4c04-b524-882dd2f81677"],

Cell[BoxData[
 RowBox[{"1", "+", "c", "-", 
  SqrtBox[
   RowBox[{"s", " ", "t"}]]}]], "Output",
 CellChangeTimes->{{3.906889592462819*^9, 3.906889598539073*^9}, 
   3.9068901267835608`*^9, 3.906891049135833*^9, 3.906891137672358*^9, 
   3.906891577084594*^9, 3.906891669857497*^9, 3.90689180003391*^9, 
   3.9068949649794273`*^9, 3.906896479069892*^9, 3.906896557660741*^9, 
   3.90689778429538*^9, 3.906898046770829*^9, 3.9068988049372053`*^9, 
   3.906899118234617*^9, 3.9068993672083483`*^9, 3.906899508273806*^9, 
   3.9068996268400707`*^9, 3.9069664455517797`*^9, 3.906966914100827*^9, 
   3.9069677190775642`*^9, 3.907656408149797*^9, 3.907660767057517*^9, 
   3.907661485711706*^9, 3.9086223058589153`*^9, 3.908622745103382*^9, 
   3.908622868296571*^9, 3.908628058910928*^9, {3.908629358407799*^9, 
   3.9086294136037607`*^9}, 3.908631069327667*^9, 3.945528044842017*^9, 
   3.945528419113492*^9, 3.945528895376548*^9, 3.945529335870199*^9, 
   3.945686023785891*^9, 3.945952143391971*^9, {3.9459522582225637`*^9, 
   3.945952275930182*^9}, 3.945953871338228*^9, {3.945953929967157*^9, 
   3.945953971479845*^9}},
 CellLabel->
  "Out[2278]=",ExpressionUUID->"1acc48bf-9dca-47e3-8c5b-c0f5241b32d1"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.86296995989781*^9, 3.862969961033935*^9}},
 CellLabel->
  "In[2279]:=",ExpressionUUID->"aa501022-c467-4505-b8c6-09a87f5db740"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"Dstarsg1", " ", "=", " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"dstarsg1", " ", ">", " ", "1"}], ",", "1", ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"dstarsg1", " ", "<", " ", "0"}], ",", "0", ",", "dstarsg1"}], 
      "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.814749984256934*^9, 3.814749995471662*^9}, {
   3.814750066462152*^9, 3.814750097705091*^9}, 3.906889101482288*^9, 
   3.9068901062161016`*^9},
 CellLabel->
  "In[2280]:=",ExpressionUUID->"60db8c4c-67ca-48f5-a3c2-b360d422d61f"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "+", "c", "-", 
     SqrtBox[
      RowBox[{"s", " ", "t"}]]}], ">", "1"}], ",", "1", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{{3.9068901116375933`*^9, 3.906890132405057*^9}, 
   3.906891062774898*^9, 3.9068911376998987`*^9, 3.90689157711134*^9, 
   3.9068916717786293`*^9, 3.906891746421348*^9, 3.9068918000520983`*^9, 
   3.906894964997911*^9, 3.9068964869244213`*^9, 3.906896557681892*^9, 
   3.906897784320126*^9, 3.906898046790515*^9, 3.906898804963134*^9, 
   3.90689911825928*^9, 3.9068993672347527`*^9, 3.906899508302698*^9, 
   3.906899626857623*^9, 3.906966537114111*^9, 3.906966914117338*^9, 
   3.906967719098564*^9, 3.9076564081630583`*^9, 3.907660767062354*^9, 
   3.907661485718998*^9, 3.908622305865028*^9, 3.908622745108736*^9, 
   3.908622868306862*^9, 3.908628072811207*^9, {3.9086293584191847`*^9, 
   3.908629413615728*^9}, 3.90863106933464*^9, 3.945528047276293*^9, 
   3.9455284191182013`*^9, 3.9455288953857*^9, 3.945529335887104*^9, 
   3.945686023794842*^9, 3.945952148475683*^9, {3.945952258236656*^9, 
   3.9459522759444*^9}, 3.9459538713437147`*^9, {3.945953929983644*^9, 
   3.945953971491519*^9}},
 CellLabel->
  "Out[2280]=",ExpressionUUID->"722ea81d-7a87-481c-b6c4-d73b8c566e63"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.814750106983346*^9, 3.814750115864205*^9}, 
   3.862970037624379*^9, {3.865292665444573*^9, 3.865292671613158*^9}, 
   3.9068891000985947`*^9},
 CellLabel->
  "In[2281]:=",ExpressionUUID->"15b7569a-4c0f-468d-af46-15dfe41503c2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"UPsg1", " ", "=", " ", 
   RowBox[{"Dstarsg1", "-", "a"}]}]}]], "Input",
 CellChangeTimes->{{3.814819899711809*^9, 3.8148199007170477`*^9}, {
  3.9068911039795113`*^9, 3.90689111334295*^9}},
 CellLabel->
  "In[2282]:=",ExpressionUUID->"c2827d4b-2d6f-4745-8b4d-d3d17495967b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "+", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"1", "+", "c", "-", 
      SqrtBox[
       RowBox[{"s", " ", "t"}]]}], ">", "1"}], ",", "1", ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], "]"}]}], 
   "]"}]}]], "Output",
 CellChangeTimes->{
  3.81481992247569*^9, 3.816985914026225*^9, 3.859213744534712*^9, 
   3.859217776134035*^9, 3.859217894838488*^9, 3.8592179335915403`*^9, 
   3.8592180816650047`*^9, 3.859218555545165*^9, 3.8592436639484797`*^9, 
   3.8592456958683987`*^9, 3.8594116362837*^9, 3.8595894034575157`*^9, 
   3.8595919365449963`*^9, 3.859592372572792*^9, 3.862970041174117*^9, 
   3.862971038252285*^9, 3.865254515526271*^9, 3.8652926774341097`*^9, 
   3.865293380709628*^9, 3.8652944320547533`*^9, 3.865294709758757*^9, 
   3.865295191641018*^9, 3.868400614604129*^9, 3.870021460218205*^9, 
   3.870100802885921*^9, 3.906534543880493*^9, 3.906536911876666*^9, 
   3.906561540242412*^9, 3.9068304319311447`*^9, 3.9068311875862226`*^9, 
   3.9068333289744053`*^9, 3.906833838390234*^9, 3.906869647217924*^9, 
   3.906870254853512*^9, 3.9068709812285547`*^9, 3.906871036358528*^9, 
   3.906871373923628*^9, 3.9068714101633997`*^9, 3.906873170518697*^9, 
   3.906888767690866*^9, {3.906891088051168*^9, 3.906891137725255*^9}, 
   3.906891242594166*^9, 3.906891577124778*^9, 3.9068916739644213`*^9, 
   3.9068917480640497`*^9, 3.9068918000721807`*^9, 3.906894965016286*^9, 
   3.906896524484219*^9, 3.906896557703095*^9, 3.906897784341487*^9, 
   3.9068980468130703`*^9, 3.906898804983851*^9, 3.906899118286854*^9, 
   3.906899367258239*^9, 3.906899508332155*^9, 3.906899626875341*^9, 
   3.9069665384969463`*^9, 3.9069669141340723`*^9, 3.906967719123489*^9, 
   3.907656408178227*^9, 3.907660767068218*^9, 3.907661485729114*^9, 
   3.908622305876367*^9, 3.908622745116637*^9, 3.9086228683122663`*^9, 
   3.908628075164459*^9, {3.908629358432444*^9, 3.9086294136233463`*^9}, 
   3.908631069346122*^9, 3.945528049475082*^9, 3.945528419131688*^9, 
   3.945528895395525*^9, 3.945529335902886*^9, 3.945686023803685*^9, 
   3.945952151888618*^9, {3.9459522582527933`*^9, 3.9459522759490433`*^9}, 
   3.945953871358773*^9, {3.945953929995728*^9, 3.945953971497322*^9}},
 CellLabel->
  "Out[2282]=",ExpressionUUID->"fc8d713d-3c72-4330-94df-9a5335e5f605"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"UCsg1", " ", "=", "  ", 
   RowBox[{"beta", "*", "Dstarsg1"}]}]}]], "Input",
 CellChangeTimes->{{3.814665676431958*^9, 3.814665680274707*^9}, {
  3.906891167669183*^9, 3.9068911713430367`*^9}},
 CellLabel->
  "In[2283]:=",ExpressionUUID->"af6fedb0-9adb-4cc3-91e0-57ae776c8017"],

Cell[BoxData[
 RowBox[{"beta", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"1", "+", "c", "-", 
      SqrtBox[
       RowBox[{"s", " ", "t"}]]}], ">", "1"}], ",", "1", ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], "]"}]}], 
   "]"}]}]], "Output",
 CellChangeTimes->{
  3.814665681699801*^9, 3.814665783903674*^9, 3.814723193716167*^9, 
   3.814723577597473*^9, 3.814724302025803*^9, 3.8147407863815613`*^9, 
   3.8147462623850737`*^9, 3.814746785053293*^9, 3.814747029260857*^9, 
   3.814747441110291*^9, 3.81474855519525*^9, 3.8147498929996777`*^9, 
   3.8147501221068277`*^9, 3.814751056192575*^9, 3.814808089240148*^9, 
   3.81481309973256*^9, 3.81481340548361*^9, 3.8148150926662607`*^9, 
   3.814819895414195*^9, 3.816985921519541*^9, 3.859213765329702*^9, 
   3.859217781339108*^9, 3.859217894863924*^9, 3.859217933615325*^9, 
   3.859218081698422*^9, 3.8592185555744267`*^9, 3.859243677185199*^9, 
   3.8592456959029493`*^9, 3.859411636333552*^9, 3.8595894035069838`*^9, 
   3.8595919365874863`*^9, 3.85959237262322*^9, 3.862970915510982*^9, 
   3.862971038307844*^9, 3.8652545155601463`*^9, 3.8652926850303583`*^9, 
   3.865293380746736*^9, 3.865294432123103*^9, 3.8652947098087177`*^9, 
   3.865295191680208*^9, 3.868400614634523*^9, 3.870021460250902*^9, 
   3.87010080292292*^9, 3.906534543903503*^9, 3.90653691190027*^9, 
   3.906561558158551*^9, 3.906830436632958*^9, 3.906831193609313*^9, 
   3.906833331957055*^9, 3.906833841697425*^9, 3.906869647259081*^9, 
   3.906870254896343*^9, 3.906870985711464*^9, 3.906871036400949*^9, 
   3.906871373955337*^9, 3.906871410197233*^9, 3.906873170549389*^9, {
   3.906888772761414*^9, 3.9068888005103607`*^9}, {3.906891172541869*^9, 
   3.9068911798870373`*^9}, 3.90689157714742*^9, 3.906891749530262*^9, 
   3.9068918000869923`*^9, 3.906894965025318*^9, 3.9068965264294786`*^9, 
   3.906896557723864*^9, 3.906897784353017*^9, 3.906898046824464*^9, 
   3.9068988049956913`*^9, 3.906899118297987*^9, 3.906899367272374*^9, 
   3.906899508343611*^9, 3.90689962688557*^9, 3.906966540049308*^9, 
   3.906966914144642*^9, 3.906967719132906*^9, 3.9076564081916447`*^9, 
   3.9076607670769367`*^9, 3.907661485733617*^9, 3.9086223058797207`*^9, 
   3.908622745124486*^9, 3.908622868320848*^9, 3.908628076629599*^9, {
   3.90862935843694*^9, 3.908629413632721*^9}, 3.908631069351163*^9, 
   3.945528052152264*^9, 3.945528419134324*^9, 3.945528895398877*^9, 
   3.945529335908453*^9, 3.945686023807541*^9, 3.945952153324032*^9, {
   3.945952258256242*^9, 3.945952275963064*^9}, 3.945953871369237*^9, {
   3.9459539300088*^9, 3.945953971509409*^9}},
 CellLabel->
  "Out[2283]=",ExpressionUUID->"0e5c047b-b9cf-4743-8823-b6e296a10b74"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"UCsg1", " ", "=", 
   RowBox[{"Simplify", "[", "UCsg1", "]"}]}]}]], "Input",
 CellChangeTimes->{3.85924368985074*^9},
 NumberMarks->False,
 CellLabel->
  "In[2284]:=",ExpressionUUID->"c4ebf969-154c-4a1b-968a-d5b20b876267"],

Cell[BoxData[
 RowBox[{"beta", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"c", ">", 
     SqrtBox[
      RowBox[{"s", " ", "t"}]]}], ",", "1", ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], "]"}]}], 
   "]"}]}]], "Output",
 CellChangeTimes->{{3.859243683817244*^9, 3.8592436941023703`*^9}, 
   3.859245695940585*^9, 3.859411636392192*^9, 3.859589403555154*^9, 
   3.85959193663002*^9, 3.8595923726733847`*^9, 3.862971038368773*^9, 
   3.865254515618577*^9, 3.865292688013381*^9, 3.8652933808209476`*^9, 
   3.865294432199143*^9, 3.8652947098747063`*^9, 3.865295191746724*^9, 
   3.868400614695818*^9, 3.870021460309997*^9, 3.8701008029862423`*^9, 
   3.906534543946949*^9, 3.906536911944569*^9, 3.906561562749785*^9, 
   3.906830439428748*^9, 3.906831196160192*^9, 3.906833334314151*^9, 
   3.90683384328759*^9, 3.906869647324772*^9, 3.9068702549743156`*^9, 
   3.9068709882788353`*^9, 3.9068710364082603`*^9, 3.906871374025362*^9, 
   3.90687141025493*^9, 3.9068731706191893`*^9, {3.906888775074307*^9, 
   3.90688880298728*^9}, 3.9068911825858183`*^9, 3.90689124839086*^9, 
   3.906891577172311*^9, 3.9068917522550898`*^9, 3.90689180010262*^9, 
   3.9068949650425873`*^9, {3.906896527870303*^9, 3.906896557734206*^9}, 
   3.9068977843725433`*^9, 3.906898046841529*^9, 3.906898805013733*^9, 
   3.9068991183197613`*^9, 3.90689936729319*^9, 3.9068995083676243`*^9, 
   3.9068996268988132`*^9, 3.906966542058783*^9, 3.906966914158124*^9, 
   3.9069677191525507`*^9, 3.907656408208932*^9, 3.9076607670894957`*^9, 
   3.907661485741884*^9, 3.908622305891604*^9, 3.9086227451369*^9, 
   3.908622868328723*^9, 3.90862807864279*^9, {3.908629358449448*^9, 
   3.908629413645369*^9}, 3.908631069363229*^9, 3.945528059568006*^9, 
   3.945528419146305*^9, 3.945528895408291*^9, 3.945529335920035*^9, 
   3.9456860238164673`*^9, 3.9459521557429323`*^9, {3.945952258268628*^9, 
   3.945952275978998*^9}, 3.945953871376553*^9, {3.945953930019689*^9, 
   3.94595397151996*^9}},
 CellLabel->
  "Out[2284]=",ExpressionUUID->"6cd18b2b-6d17-459b-b37c-0c87e5ca1ae4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8147422619796658`*^9, 3.814742307120139*^9}, {
  3.814821473235589*^9, 3.8148214963007174`*^9}, {3.9068965401580276`*^9, 
  3.90689654899824*^9}},
 CellLabel->
  "In[2285]:=",ExpressionUUID->"209a4fa8-5ff9-4665-b8eb-9669e6c41658"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.814749955263126*^9, 3.814749969184105*^9}},
 CellLabel->
  "In[2286]:=",ExpressionUUID->"2539e8a9-875c-4c6b-a212-f0876e38250d"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"k", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"s", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"t", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"c", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"beta", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"a", "=."}], "\[IndentingNewLine]", 
   RowBox[{"d", "=."}]}]}]], "Input",
 CellChangeTimes->{{3.8147236850969687`*^9, 3.8147237067298603`*^9}, {
  3.8652927628420887`*^9, 3.865292763118002*^9}, {3.906891454158093*^9, 
  3.90689145634072*^9}, {3.9068966724394007`*^9, 3.906896672847231*^9}},
 CellLabel->
  "In[2287]:=",ExpressionUUID->"3ce0f482-0d8f-4021-93c5-00d15a1c9cfb"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"**", "**", "**", "**", "**", "**", "**", "**", "SUBGAME"}], " ", 
    
    RowBox[{
    "2", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}]}], 
   "*****)"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.814723325240888*^9, 3.814723326989524*^9}, 
   3.8147233716599617`*^9, {3.9068912908780127`*^9, 3.906891291322003*^9}},
 CellLabel->
  "In[2294]:=",ExpressionUUID->"0f2decd4-ce6f-4e98-a98d-e11b2c693a6c"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"f", "=."}], "\[IndentingNewLine]", 
   RowBox[{"d", "=."}]}]}]], "Input",
 CellChangeTimes->{{3.814647341551333*^9, 3.814647368915873*^9}, {
   3.81475019486456*^9, 3.814750196394095*^9}, 3.945528078535603*^9},
 CellLabel->
  "In[2295]:=",ExpressionUUID->"eede7c45-6d04-415a-a719-b79aa9169d4e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PUSG2", " ", "=", " ", "Node5P"}]], "Input",
 CellChangeTimes->{{3.812420255927311*^9, 3.812420258906536*^9}},
 CellLabel->
  "In[2297]:=",ExpressionUUID->"7a39e68e-35d4-48db-9b55-9178b2a81eb9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "-", 
  RowBox[{"f", " ", "s"}], "+", 
  FractionBox["f", 
   RowBox[{"f", "+", "t"}]], "-", 
  FractionBox[
   RowBox[{"f", " ", "k", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox["f", 
       RowBox[{"f", "+", "t"}]]}], ")"}]}], "beta"]}]], "Output",
 CellChangeTimes->{
  3.812420262703247*^9, 3.812426105229897*^9, 3.81242726405726*^9, 
   3.8124277019352503`*^9, 3.812754437367342*^9, 3.812754796928948*^9, 
   3.812793004560911*^9, 3.812795640270193*^9, 3.814566110596792*^9, 
   3.8145711329854393`*^9, 3.814572712165045*^9, 3.814572959626897*^9, 
   3.8145741237447453`*^9, {3.814577462610676*^9, 3.814577468198782*^9}, 
   3.814580266035633*^9, 3.814582740167755*^9, 3.814586053924988*^9, 
   3.814613371094976*^9, 3.814628108555211*^9, 3.814628277529995*^9, 
   3.814628595466804*^9, 3.814628680260511*^9, 3.814647373104044*^9, 
   3.814649830722686*^9, 3.8146563521762733`*^9, 3.81466356401855*^9, 
   3.814665808687603*^9, 3.814723674327902*^9, 3.814723715796939*^9, 
   3.814724320009399*^9, 3.814741376519066*^9, 3.8147469489939423`*^9, 
   3.814747572825922*^9, 3.814748605780528*^9, 3.814750199966352*^9, 
   3.814751096133412*^9, 3.814808114361709*^9, 3.814813119482082*^9, 
   3.814815115902363*^9, 3.816978607453685*^9, 3.816985959925673*^9, 
   3.859214424498599*^9, 3.8592178011938868`*^9, 3.859217895085338*^9, 
   3.859217940653426*^9, 3.859218081960281*^9, 3.8592185558315353`*^9, 
   3.859243787170148*^9, 3.859245696308538*^9, 3.8594116368819017`*^9, 
   3.859589404014632*^9, 3.8595919370719757`*^9, 3.859592373179579*^9, 
   3.862970124490281*^9, 3.862971038778672*^9, 3.8652545161247463`*^9, 
   3.865292792977487*^9, 3.865293381086825*^9, 3.865294432588654*^9, 
   3.865294710100527*^9, 3.865295191965659*^9, 3.868400615161055*^9, 
   3.87002146067068*^9, 3.870100803192275*^9, 3.906534550443884*^9, 
   3.906534668919499*^9, 3.906536919415185*^9, 3.906561586594644*^9, 
   3.906833566303994*^9, {3.9068338538358393`*^9, 3.906833857323099*^9}, 
   3.906869663592929*^9, 3.906870270370495*^9, 3.906871052731933*^9, 
   3.906871374241219*^9, 3.906871410530671*^9, 3.906873170814349*^9, 
   3.906891297421089*^9, {3.906891762085505*^9, 3.906891800267233*^9}, 
   3.906894965210658*^9, 3.906896681990922*^9, 3.90689778452566*^9, 
   3.906898046985425*^9, 3.9068988051716557`*^9, 3.906899118479755*^9, 
   3.906899367449677*^9, 3.906899508538583*^9, 3.906899627012335*^9, 
   3.906966563364711*^9, 3.90696691428697*^9, 3.906967719300543*^9, 
   3.90765640842656*^9, 3.9076607671562757`*^9, 3.907661485811565*^9, 
   3.9086223059828377`*^9, 3.9086227452133923`*^9, 3.908622868412208*^9, 
   3.9086281074471493`*^9, {3.90862935853478*^9, 3.9086294137296457`*^9}, 
   3.9086310694611397`*^9, 3.945528082537684*^9, 3.945528419166424*^9, 
   3.945528895427834*^9, 3.9455293359452267`*^9, 3.945686023828573*^9, {
   3.945952258292371*^9, 3.945952275999449*^9}, 3.945953871395667*^9, {
   3.945953930039914*^9, 3.945953971539071*^9}},
 CellLabel->
  "Out[2297]=",ExpressionUUID->"7d67a02e-51f6-49cc-a56a-c9671fcef183"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "f"], "PUSG2"}], "\[Equal]", "0"}], ",", "f",
    ",", "NonNegativeReals"}], "]"}]], "Input",
 CellChangeTimes->{{3.8124203001102333`*^9, 3.812420303199087*^9}, 
   3.812754450090847*^9, 3.814628618954908*^9, {3.8629701333573933`*^9, 
   3.862970135463249*^9}, 3.906561593411127*^9, {3.906833574997541*^9, 
   3.90683358882047*^9}},
 NumberMarks->False,
 CellLabel->
  "In[2298]:=",ExpressionUUID->"bc92607b-087f-4aac-a50b-058242702c64"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"f", "\[Rule]", 
    TemplateBox[{
      RowBox[{
        RowBox[{"-", "t"}], "+", 
        RowBox[{
          SqrtBox[
           FractionBox["1", 
            RowBox[{"beta", " ", "s"}]]], " ", 
          SqrtBox[
           RowBox[{
             RowBox[{"beta", " ", "t"}], "-", 
             RowBox[{"k", " ", 
               SuperscriptBox["t", "2"]}]}]]}]}], 
      RowBox[{
        RowBox[{"k", "<", 
          FractionBox["beta", "t"]}], "&&", 
        RowBox[{"s", "<", 
          FractionBox[
           RowBox[{"beta", "-", 
             RowBox[{"k", " ", "t"}]}], 
           RowBox[{"beta", " ", "t"}]]}]}]},
     "ConditionalExpression"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.812420295571788*^9, 3.8124203059301033`*^9}, 
   3.8124261144486427`*^9, 3.8124272724815083`*^9, 3.8124277100610037`*^9, 
   3.812754453249868*^9, 3.81275480302957*^9, 3.812793011081408*^9, 
   3.8127956525250177`*^9, 3.8145661172449713`*^9, 3.814571138970481*^9, 
   3.814572717306037*^9, 3.8145729661494827`*^9, 3.814574128536018*^9, 
   3.814577474148818*^9, 3.8145802729605*^9, 3.814582747735815*^9, 
   3.814586065134142*^9, 3.814613377444866*^9, 3.814628116094305*^9, 
   3.814628283278462*^9, 3.814628624403783*^9, 3.814628685674474*^9, 
   3.81464738371377*^9, 3.814649836713517*^9, 3.814656356804317*^9, 
   3.8146635719955*^9, 3.8146658141233797`*^9, 3.8147237208429937`*^9, 
   3.8147243254036703`*^9, 3.814741380692658*^9, 3.814746953882166*^9, 
   3.814747580086422*^9, 3.814748611050123*^9, 3.8147502062493258`*^9, 
   3.8147511019070272`*^9, 3.814808119682522*^9, 3.8148131233842278`*^9, 
   3.8148151208473263`*^9, 3.816978613853807*^9, 3.8169859657433653`*^9, 
   3.859214429451223*^9, 3.8592178050401278`*^9, 3.85921789510098*^9, 
   3.859217944286229*^9, 3.859218081990926*^9, 3.8592185558611393`*^9, 
   3.859243793797827*^9, 3.859245696342499*^9, 3.859411636933112*^9, 
   3.859589404059381*^9, 3.8595919371126347`*^9, 3.859592373220852*^9, {
   3.862970130927657*^9, 3.862970136259178*^9}, 3.862971038834835*^9, 
   3.8652545161747437`*^9, 3.865292797593429*^9, 3.865293381121623*^9, 
   3.865294432651414*^9, 3.86529471013487*^9, 3.865295192008559*^9, 
   3.8684006152121277`*^9, 3.870021460700513*^9, 3.870100803234527*^9, 
   3.906534561666081*^9, 3.90653466894727*^9, 3.906536925563332*^9, 
   3.906561595793077*^9, {3.906833571407947*^9, 3.906833590093936*^9}, 
   3.906833862131299*^9, 3.906869667883376*^9, 3.906870275005569*^9, 
   3.90687105797745*^9, 3.906871374289398*^9, 3.906871410622328*^9, 
   3.906873170869186*^9, 3.9068913054950743`*^9, 3.906891811386036*^9, 
   3.906894965259935*^9, 3.9068966893948298`*^9, 3.906897784567566*^9, 
   3.9068980470263357`*^9, 3.906898805213092*^9, 3.906899118520998*^9, 
   3.906899367490787*^9, 3.906899508580064*^9, 3.9068996270402822`*^9, 
   3.906966565042192*^9, 3.9069669143150806`*^9, 3.906967719329146*^9, 
   3.907656408447774*^9, 3.9076607671774178`*^9, 3.907661485833131*^9, 
   3.908622306004828*^9, 3.908622745235414*^9, 3.908622868433982*^9, {
   3.908628105257218*^9, 3.908628108938748*^9}, {3.908629358557682*^9, 
   3.908629413751988*^9}, 3.908631069484222*^9, 3.945528084651269*^9, 
   3.945528419183769*^9, 3.9455288954483547`*^9, 3.94552933596268*^9, 
   3.945686023845531*^9, 3.945952219956891*^9, {3.945952254088582*^9, 
   3.945952276018526*^9}, 3.9459538714146633`*^9, {3.945953930058935*^9, 
   3.945953971558755*^9}},
 CellLabel->
  "Out[2298]=",ExpressionUUID->"13790c10-f77b-48a9-b583-2618fc8e4bca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fstarsg2", " ", "=", " ", 
  RowBox[{
   RowBox[{"-", "t"}], "+", 
   RowBox[{
    SqrtBox[
     FractionBox["1", 
      RowBox[{"beta", " ", "s"}]]], " ", 
    SqrtBox[
     RowBox[{
      RowBox[{"beta", " ", "t"}], "-", 
      RowBox[{"k", " ", 
       SuperscriptBox["t", "2"]}]}]]}]}]}]], "Input",
 CellChangeTimes->{{3.812419975500573*^9, 3.8124199755019693`*^9}, {
   3.812420356972698*^9, 3.81242037389968*^9}, 3.81462812594293*^9, 
   3.814628693349276*^9, 3.8147243402062283`*^9, 3.862970151652916*^9, 
   3.9065616017677097`*^9, 3.906869686178095*^9},
 CellLabel->
  "In[2299]:=",ExpressionUUID->"864892cb-6892-4d45-baf6-18193ce1f150"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  RowBox[{
   SqrtBox[
    FractionBox["1", 
     RowBox[{"beta", " ", "s"}]]], " ", 
   SqrtBox[
    RowBox[{
     RowBox[{"beta", " ", "t"}], "-", 
     RowBox[{"k", " ", 
      SuperscriptBox["t", "2"]}]}]]}]}]], "Output",
 CellChangeTimes->{
  3.812420376700605*^9, 3.8124261197812757`*^9, 3.812427276201692*^9, 
   3.812427715095419*^9, 3.812754808178431*^9, 3.812793013634984*^9, 
   3.812795654498198*^9, 3.814566120784026*^9, 3.8145711423747053`*^9, 
   3.814572719695321*^9, 3.814572969952724*^9, 3.814574130935522*^9, 
   3.814577479441984*^9, 3.814580276931592*^9, 3.814582750511178*^9, 
   3.8145860676926737`*^9, 3.814613380039941*^9, 3.814628129134519*^9, 
   3.814628286942387*^9, 3.81462869482428*^9, 3.814647388023202*^9, 
   3.814649840474903*^9, 3.814656359930955*^9, 3.814663574534153*^9, 
   3.8146658178502007`*^9, 3.814723723917323*^9, {3.8147243273951187`*^9, 
   3.8147243416569653`*^9}, 3.814741383109069*^9, 3.814747584569873*^9, 
   3.814748613259839*^9, 3.8147502102631474`*^9, 3.814751105516531*^9, 
   3.8148081224338417`*^9, 3.81481312610679*^9, 3.8148151237302856`*^9, 
   3.816978617910379*^9, 3.816985968310573*^9, 3.85921443135343*^9, 
   3.8592178087506247`*^9, 3.859217895119532*^9, 3.8592179473281803`*^9, 
   3.8592180820005417`*^9, 3.859218555883922*^9, 3.859243801022832*^9, 
   3.859245696355077*^9, 3.8594116369697123`*^9, 3.859589404087488*^9, 
   3.8595919371396513`*^9, 3.8595923732450123`*^9, 3.86297015287576*^9, 
   3.862971038851737*^9, 3.865254516184483*^9, 3.8652928754662743`*^9, 
   3.865293381192916*^9, 3.865294432666326*^9, 3.865294710165118*^9, 
   3.865295192027701*^9, 3.868400615224856*^9, 3.8700214607108107`*^9, 
   3.870100803250807*^9, 3.90653466895573*^9, 3.906536939580153*^9, 
   3.906561603973281*^9, 3.906833871039515*^9, 3.906869688659604*^9, 
   3.906870279854644*^9, 3.906871066700513*^9, 3.9068713742985067`*^9, 
   3.9068714106316767`*^9, 3.906873170876885*^9, 3.906891372930317*^9, 
   3.9068918145724287`*^9, 3.90689496527111*^9, 3.9068966917450247`*^9, 
   3.906897784579207*^9, 3.906898047038341*^9, 3.906898805225562*^9, 
   3.90689911853343*^9, 3.9068993675034933`*^9, 3.906899508593459*^9, 
   3.906899627051778*^9, 3.906966574316103*^9, 3.9069669143251457`*^9, 
   3.906967719339264*^9, 3.90765640846035*^9, 3.907660767181575*^9, 
   3.907661485837536*^9, 3.908622306009197*^9, 3.908622745239949*^9, 
   3.9086228684387608`*^9, 3.9086281271460657`*^9, {3.908629358563328*^9, 
   3.908629413759198*^9}, 3.9086310694902782`*^9, 3.945528118960787*^9, 
   3.945528419189505*^9, 3.9455288954552917`*^9, 3.945529335966217*^9, 
   3.945686023849022*^9, {3.945952258315123*^9, 3.945952281424293*^9}, 
   3.945953871421228*^9, {3.945953930063216*^9, 3.945953971563416*^9}},
 CellLabel->
  "Out[2299]=",ExpressionUUID->"6372d40a-ee9d-473e-a15d-c4940b55e1c2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fstarsg2", " ", "=", 
  RowBox[{"FullSimplify", "[", "fstarsg2", "]"}]}]], "Input",
 CellChangeTimes->{{3.9068338817745132`*^9, 3.9068338822325153`*^9}, 
   3.906869719731607*^9},
 NumberMarks->False,
 CellLabel->
  "In[2300]:=",ExpressionUUID->"09f6e0b5-1f48-45dc-b103-50c6a52c4ee3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  SqrtBox[
   FractionBox[
    RowBox[{"t", " ", 
     RowBox[{"(", 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}], ")"}]}], 
    RowBox[{"beta", " ", "s"}]]]}]], "Output",
 CellChangeTimes->{{3.9068338749086523`*^9, 3.906833883407007*^9}, 
   3.906869690525895*^9, 3.9068697208185472`*^9, 3.9068702831284847`*^9, 
   3.906871068368704*^9, 3.906871374362158*^9, 3.906871410694668*^9, 
   3.906873170939146*^9, 3.906891375880001*^9, 3.906891816802759*^9, 
   3.906894965334436*^9, 3.9068966933498096`*^9, 3.906897784644177*^9, 
   3.9068980471025543`*^9, 3.906898805291254*^9, 3.9068991185987043`*^9, 
   3.906899367569269*^9, 3.906899508659625*^9, 3.9068996270941753`*^9, 
   3.906966575563479*^9, 3.906966914367872*^9, 3.9069677193819*^9, 
   3.90765640850149*^9, 3.907660767217428*^9, 3.90766148587385*^9, 
   3.908622306049624*^9, 3.9086227452769537`*^9, 3.9086228684749393`*^9, 
   3.908628128560528*^9, {3.908629358600092*^9, 3.908629413795483*^9}, 
   3.908631069529001*^9, 3.945528121131489*^9, 3.945528419217013*^9, 
   3.945528895485705*^9, 3.945529335995973*^9, 3.9456860238779783`*^9, 
   3.9459522583464937`*^9, 3.945952476580616*^9, 3.945953871451943*^9, {
   3.945953930094261*^9, 3.945953971594536*^9}},
 CellLabel->
  "Out[2300]=",ExpressionUUID->"25c577eb-e068-4967-9823-82940c3caf64"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pstarsg2", " ", "=", " ", 
  RowBox[{"(", 
   RowBox[{"fstarsg2", "/", 
    RowBox[{"(", 
     RowBox[{"fstarsg2", "+", "t"}], ")"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.81242038983422*^9, 3.812420407627741*^9}},
 CellLabel->
  "In[2301]:=",ExpressionUUID->"3361f1a4-924c-4dbb-9da1-e1acb09ed6dc"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "t"}], "+", 
   SqrtBox[
    FractionBox[
     RowBox[{"t", " ", 
      RowBox[{"(", 
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}], ")"}]}], 
     RowBox[{"beta", " ", "s"}]]]}], 
  SqrtBox[
   FractionBox[
    RowBox[{"t", " ", 
     RowBox[{"(", 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}], ")"}]}], 
    RowBox[{"beta", " ", "s"}]]]]], "Output",
 CellChangeTimes->{
  3.814812231305292*^9, 3.8148131281728697`*^9, 3.8148151294349318`*^9, 
   3.816978621782181*^9, 3.816985970742099*^9, 3.859214434846573*^9, 
   3.85921781080821*^9, 3.85921789512608*^9, 3.8592179492101316`*^9, 
   3.8592180820241423`*^9, 3.859218555891698*^9, 3.8592438026173677`*^9, 
   3.859245696375671*^9, 3.859411636981578*^9, 3.859589404101471*^9, 
   3.859591937157011*^9, 3.859592373259183*^9, 3.862970154785887*^9, 
   3.862971038877571*^9, 3.865254516193357*^9, 3.865292877331003*^9, 
   3.86529338120133*^9, 3.86529443269307*^9, 3.865294710175062*^9, 
   3.865295192047823*^9, 3.868400615241519*^9, 3.8700214607273397`*^9, 
   3.8701008032700787`*^9, 3.906534668971711*^9, 3.906536942997239*^9, 
   3.906561606539529*^9, 3.9068338994217873`*^9, 3.906869693951524*^9, 
   3.9068702856960993`*^9, 3.906871070759553*^9, 3.9068713743718987`*^9, 
   3.90687141070282*^9, 3.906873170945839*^9, 3.906891378308779*^9, 
   3.906891819507296*^9, 3.906894965343693*^9, 3.906896697914069*^9, 
   3.906896882850215*^9, 3.9068977846555767`*^9, 3.906898047114278*^9, 
   3.906898805305128*^9, 3.906899118610277*^9, 3.906899367580985*^9, 
   3.90689950867166*^9, 3.906899627103611*^9, 3.906966608074831*^9, 
   3.906966914377252*^9, 3.9069677193913813`*^9, 3.907656408504795*^9, 
   3.907660767221077*^9, 3.9076614858777027`*^9, 3.9086223060541983`*^9, 
   3.9086227452811403`*^9, 3.908622868479167*^9, 3.908628141495131*^9, {
   3.908629358604896*^9, 3.908629413800243*^9}, 3.908631069534129*^9, 
   3.9455281228556337`*^9, 3.945528419220882*^9, 3.945528895490594*^9, 
   3.945529335999383*^9, 3.945686023881418*^9, 3.945952258350286*^9, 
   3.945952478548559*^9, 3.945953871455653*^9, {3.945953930098034*^9, 
   3.9459539715984898`*^9}},
 CellLabel->
  "Out[2301]=",ExpressionUUID->"297066da-eb5a-4cbf-a391-0640b784d6db"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pstarsg2", " ", "=", 
  RowBox[{"FullSimplify", "[", "pstarsg2", "]"}]}]], "Input",
 CellChangeTimes->{
  3.8592144441862383`*^9, {3.906869698088286*^9, 3.90686969855826*^9}},
 NumberMarks->False,
 CellLabel->
  "In[2302]:=",ExpressionUUID->"f6d033fb-5002-4171-a3d0-fd716eaf955c"],

Cell[BoxData[
 RowBox[{"1", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{{3.859214436115979*^9, 3.859214445528172*^9}, 
   3.859217813510146*^9, 3.85921789514505*^9, 3.859217963413612*^9, 
   3.859218082047052*^9, 3.859218555912982*^9, 3.859243804496867*^9, 
   3.859245696396838*^9, 3.859411637019395*^9, 3.8595894041298523`*^9, 
   3.8595919371840467`*^9, 3.859592373283368*^9, 3.8629701565656548`*^9, 
   3.862971038934827*^9, 3.8652545162354383`*^9, 3.8652928795343723`*^9, 
   3.865293381252536*^9, 3.8652944327434187`*^9, 3.8652947102370863`*^9, 
   3.865295192119463*^9, 3.8684006152848454`*^9, 3.870021460776363*^9, 
   3.870100803316669*^9, 3.906534669001754*^9, 3.9065369461373997`*^9, 
   3.90656160945144*^9, 3.9068339029213257`*^9, 3.906869699374854*^9, 
   3.9068702877342863`*^9, 3.9068710728776417`*^9, 3.9068713744955883`*^9, 
   3.9068714108269587`*^9, 3.9068731710698137`*^9, 3.906891381344039*^9, 
   3.906891821724173*^9, 3.906894965468433*^9, 3.906896699809752*^9, 
   3.906896885078888*^9, 3.906897784781559*^9, 3.906898047240364*^9, 
   3.9068988054322443`*^9, 3.9068991187371197`*^9, 3.906899367709454*^9, 
   3.906899508800043*^9, 3.906899627183721*^9, 3.906966609476138*^9, 
   3.90696691445653*^9, 3.90696771947082*^9, 3.9076564085754642`*^9, 
   3.907660767293356*^9, 3.907661485951479*^9, 3.908622306128577*^9, 
   3.908622745354775*^9, 3.908622868552505*^9, 3.908628142816614*^9, {
   3.9086293586791*^9, 3.908629413872953*^9}, 3.908631069609804*^9, 
   3.945528124874537*^9, 3.945528419276064*^9, 3.94552889554852*^9, 
   3.945529336058284*^9, 3.945686023941978*^9, 3.945952258414384*^9, 
   3.9459524799074707`*^9, 3.945953871518715*^9, {3.945953930160924*^9, 
   3.945953971660788*^9}},
 CellLabel->
  "Out[2302]=",ExpressionUUID->"bb363616-e588-456a-86b9-18664bfa54cf"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.814812239767274*^9, 3.814812287613102*^9}, 
   3.814812843690076*^9},
 CellLabel->
  "In[2303]:=",ExpressionUUID->"8bf93e66-2499-482e-a419-2aca10c16fc4"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.814812839371914*^9, 3.814812839375943*^9}},
 CellLabel->
  "In[2304]:=",ExpressionUUID->"4211e902-c9dd-4fed-b6cc-b65b67f347ad"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.814812301735626*^9, 3.814812846490717*^9},
 CellLabel->
  "In[2305]:=",ExpressionUUID->"be9bdca5-5ea8-4981-847f-f38ce49f4acd"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.81481232409807*^9, 3.814812333297271*^9}, {
  3.8148128610905533`*^9, 3.814812867389559*^9}},
 CellLabel->
  "In[2306]:=",ExpressionUUID->"9df41c0c-4635-4e2a-b337-0714fee02de3"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8148128492607613`*^9, 3.814812849264657*^9}},
 CellLabel->
  "In[2307]:=",ExpressionUUID->"4b07b22a-6163-4009-aa0c-f161f8560616"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.814812226028431*^9, 3.814812855026923*^9},
 CellLabel->
  "In[2308]:=",ExpressionUUID->"1614fa0f-8ee5-4506-9cfa-bb269ac6c3da"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8148128569792843`*^9, 3.8148128593495502`*^9}},
 CellLabel->
  "In[2309]:=",ExpressionUUID->"f2339b38-e06c-4272-9d1e-ae93e2f38a55"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "S2", " ", "is", " ", "completely", " ", "informed", " ", "here"}], ",", 
    " ", 
    RowBox[{
    "so", " ", "their", " ", "calculation", " ", "is", " ", "also", " ", 
     "relatively", " ", 
     RowBox[{"easy", ":"}]}]}], "*)"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8146474031722603`*^9, 3.814647518422901*^9}, {
  3.814647557902546*^9, 3.814647592021084*^9}, {3.814648613811554*^9, 
  3.814648659922401*^9}, {3.8146633318573713`*^9, 3.814663350557439*^9}, {
  3.814663594597623*^9, 3.814663596616707*^9}, {3.859214578281313*^9, 
  3.859214592045764*^9}, {3.859217967586855*^9, 3.8592179677537947`*^9}, {
  3.9456859853108063`*^9, 3.9456859858252563`*^9}},
 CellLabel->
  "In[2310]:=",ExpressionUUID->"15c80f76-344e-4f32-8ac1-9e031aa640c7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"f", "=."}], "\[IndentingNewLine]", 
   RowBox[{"d", "=."}], "\[IndentingNewLine]", 
   RowBox[{"f", " ", "=", " ", "fstarsg2"}]}]}]], "Input",
 CellChangeTimes->{{3.8146634197144737`*^9, 3.8146634602583838`*^9}},
 CellLabel->
  "In[2311]:=",ExpressionUUID->"02cf2b26-0e07-4afb-b35e-4558dad29e9a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  SqrtBox[
   FractionBox[
    RowBox[{"t", " ", 
     RowBox[{"(", 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}], ")"}]}], 
    RowBox[{"beta", " ", "s"}]]]}]], "Output",
 CellChangeTimes->{
  3.814663623941689*^9, 3.814665824431731*^9, 3.8147237328350363`*^9, 
   3.8147243476162777`*^9, 3.8147413914097357`*^9, 3.814747590589612*^9, 
   3.814748619272777*^9, 3.814750215384714*^9, 3.8147511120199738`*^9, 
   3.814808128475132*^9, 3.8148131313881483`*^9, 3.8148151324904346`*^9, 
   3.816985974876903*^9, 3.859217818610009*^9, 3.859217895217558*^9, 
   3.85921797051086*^9, 3.8592180820989943`*^9, 3.859218555962736*^9, 
   3.8592440753001137`*^9, 3.85924569645758*^9, 3.859411637095376*^9, 
   3.859589404188655*^9, 3.859591937246477*^9, 3.859592373348175*^9, 
   3.862970160976308*^9, 3.862971038999159*^9, 3.8652545162949257`*^9, 
   3.865293005037334*^9, 3.8652933813162317`*^9, 3.865294432815422*^9, 
   3.865294710364156*^9, 3.8652951921947327`*^9, 3.8684006153577757`*^9, 
   3.870021460926386*^9, 3.8701008033621264`*^9, 3.906534669027054*^9, 
   3.9065367732284327`*^9, 3.906536967338078*^9, 3.9065616173194*^9, 
   3.906833907580112*^9, {3.9068697038007298`*^9, 3.906869723992141*^9}, 
   3.906870296695915*^9, 3.906871076809462*^9, 3.9068713745550947`*^9, 
   3.9068714108739347`*^9, 3.90687317113627*^9, 3.906891385060051*^9, 
   3.906891824819015*^9, 3.9068936791168213`*^9, 3.906894965520913*^9, 
   3.9068977848266363`*^9, 3.906898047281302*^9, 3.906898805478565*^9, 
   3.9068991187831173`*^9, 3.906899367756888*^9, 3.906899508872407*^9, 
   3.9068996272109547`*^9, 3.90696680851859*^9, 3.906966914487262*^9, 
   3.9069677195044317`*^9, 3.90765640860319*^9, 3.907660767316766*^9, 
   3.907661485976842*^9, 3.908622306154772*^9, 3.9086227453764668`*^9, 
   3.9086228685742273`*^9, 3.908628149771006*^9, {3.908629358702642*^9, 
   3.9086294138986053`*^9}, 3.908631069632728*^9, 3.945528129692051*^9, 
   3.945528419301508*^9, 3.9455288955694304`*^9, 3.945529336089052*^9, 
   3.945686023962357*^9, 3.945952258446292*^9, 3.9459527684151783`*^9, 
   3.945953871543195*^9, {3.945953930194804*^9, 3.945953971685907*^9}},
 CellLabel->
  "Out[2313]=",ExpressionUUID->"e506bc2d-d2bb-4c0a-90aa-30975e668e33"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dstarsg2", "=", " ", 
  RowBox[{"pstarsg2", "+", "c"}]}]], "Input",
 CellChangeTimes->{
  3.859215150590782*^9, {3.90689385514577*^9, 3.906893857003459*^9}, {
   3.906893918045329*^9, 3.906893923897213*^9}},
 NumberMarks->False,
 CellLabel->
  "In[2314]:=",ExpressionUUID->"11e78b57-c317-44c5-9909-16bc86f5da76"],

Cell[BoxData[
 RowBox[{"1", "+", "c", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{{3.859215145771369*^9, 3.859215152043448*^9}, 
   3.859215574705145*^9, 3.859217895374874*^9, 3.8592180171711893`*^9, 
   3.859218082256288*^9, 3.85921857889994*^9, 3.859244302861223*^9, 
   3.859245696615127*^9, 3.8594116373294163`*^9, 3.85959193744137*^9, 
   3.859592373540854*^9, 3.862970230700753*^9, 3.862971039650783*^9, 
   3.865254516887583*^9, {3.8652933390868998`*^9, 3.86529336505335*^9}, 
   3.86529340047899*^9, 3.8652944334459267`*^9, 3.8652947110046873`*^9, 
   3.8652951928684673`*^9, 3.8684006159397917`*^9, 3.8700214615607*^9, 
   3.870100804012547*^9, 3.9065348373908367`*^9, 3.906536788135707*^9, 
   3.906537012097859*^9, 3.9065616436818857`*^9, 3.906833950593391*^9, 
   3.906869740164342*^9, 3.90687031505098*^9, 3.906871092624475*^9, 
   3.906871375000873*^9, 3.90687141133337*^9, 3.906873491846159*^9, 
   3.906893829542389*^9, 3.906893924370474*^9, 3.9068949655301228`*^9, 
   3.906897784837577*^9, 3.906898047293303*^9, 3.906898805490074*^9, 
   3.906899118794688*^9, 3.906899367771823*^9, 3.90689950888726*^9, 
   3.906899627220553*^9, 3.90696681041926*^9, 3.906966914496415*^9, 
   3.906967719513612*^9, 3.90765640860603*^9, 3.907660767320304*^9, 
   3.907661485980461*^9, 3.9086223061582937`*^9, 3.9086227453826017`*^9, 
   3.908622868577827*^9, 3.9086281509978857`*^9, {3.90862935871006*^9, 
   3.908629413903061*^9}, 3.908631069640386*^9, 3.9455281313844757`*^9, 
   3.945528419304137*^9, 3.945528895572442*^9, 3.945529336091948*^9, 
   3.9456860239661694`*^9, 3.9459522584495564`*^9, 3.945952771454368*^9, 
   3.945953871546302*^9, {3.945953930200728*^9, 3.945953971692009*^9}},
 CellLabel->
  "Out[2314]=",ExpressionUUID->"4c357d9c-18b0-477b-a143-8e55758510bd"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.906535283022805*^9, 3.906535283909295*^9}, 
   3.906535343220701*^9, {3.9065371064153233`*^9, 3.906537116967291*^9}, 
   3.906893929850361*^9},
 CellLabel->
  "In[2315]:=",ExpressionUUID->"077fcfac-13d8-4552-a3cb-7f018965a606"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"d", " ", "=", " ", "dstarsg2"}], "\[IndentingNewLine]"}]], "Input",\

 CellChangeTimes->{{3.814750263173286*^9, 3.8147502793732758`*^9}, {
  3.9068946084575787`*^9, 3.906894609047512*^9}},
 CellLabel->
  "In[2316]:=",ExpressionUUID->"9cd83f23-3f39-4bdf-9a3c-c077d61d5457"],

Cell[BoxData[
 RowBox[{"1", "+", "c", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{
  3.945953871559379*^9, {3.9459539302123737`*^9, 3.945953971703528*^9}},
 CellLabel->
  "Out[2316]=",ExpressionUUID->"6ebf380e-2ddb-47c3-b398-c812288cef0f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1", "+", "c", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Input",
 CellChangeTimes->{3.945952845449171*^9},
 CellLabel->
  "In[2317]:=",ExpressionUUID->"e4fec6b0-32bf-4a0b-9b0c-3b53ff28691d"],

Cell[BoxData[
 RowBox[{"1", "+", "c", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{
  3.9459528454785*^9, 3.945953871566039*^9, {3.9459539302161407`*^9, 
   3.9459539717079563`*^9}},
 CellLabel->
  "Out[2317]=",ExpressionUUID->"632f8f84-9c34-4735-b81c-bce0ed036a0a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Dstarsg2", " ", "=", " ", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"dstarsg2", " ", ">", " ", "1"}], ",", "1", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"dstarsg2", " ", "<", " ", "0"}], ",", "0", ",", "dstarsg2"}],
        "]"}]}], "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.814741933928244*^9, 3.8147419656263723`*^9}, {
   3.814742183609704*^9, 3.814742203198251*^9}, {3.814808852597665*^9, 
   3.814808853217186*^9}, 3.9068947179924793`*^9, {3.9069668658048983`*^9, 
   3.90696686694209*^9}},
 CellLabel->
  "In[2318]:=",ExpressionUUID->"9345e6e5-6394-4a5a-962c-ac28e8834dcd"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "+", "c", "-", 
     SqrtBox[
      FractionBox[
       RowBox[{"beta", " ", "s", " ", "t"}], 
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}]]]}], ">", "1"}], ",", "1", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{
  3.814741974401936*^9, 3.814742225753069*^9, 3.814747671553555*^9, 
   3.814748776797719*^9, 3.814750345617003*^9, 3.814751182515966*^9, 
   3.814808213327815*^9, 3.814808854984428*^9, 3.8148132152049503`*^9, 
   3.814815327243012*^9, 3.816986061182021*^9, 3.859217897066701*^9, 
   3.859218200247271*^9, 3.8592186531291857`*^9, 3.859245523432666*^9, 
   3.859245697236102*^9, 3.8594116380481586`*^9, 3.85959193813196*^9, 
   3.8595923742487183`*^9, 3.862970290295602*^9, 3.86297104185419*^9, 
   3.865254518923149*^9, 3.8652946078789043`*^9, 3.865294713126052*^9, 
   3.8652951950353928`*^9, 3.868400617977537*^9, 3.870021463617374*^9, 
   3.870100806102106*^9, 3.906561763522141*^9, 3.906869902400824*^9, 
   3.9068703997860107`*^9, 3.9068711565478897`*^9, 3.9068713771772223`*^9, 
   3.906871413496768*^9, 3.906894721686047*^9, 3.906894904906991*^9, 
   3.906895014945365*^9, 3.9068977848984537`*^9, 3.906898047348415*^9, 
   3.90689880556577*^9, 3.906899118872707*^9, 3.9068993678487787`*^9, 
   3.9068995089547167`*^9, 3.906899627260874*^9, 3.906966815915132*^9, 
   3.9069669145355864`*^9, 3.906967719566575*^9, 3.9076564086328087`*^9, 
   3.907660767349587*^9, 3.9076614860115967`*^9, 3.908622306182045*^9, 
   3.908622745409663*^9, 3.908622868610034*^9, 3.9086281612379017`*^9, {
   3.9086293587418213`*^9, 3.908629413936481*^9}, 3.908631069672391*^9, 
   3.945528143726652*^9, 3.9455284193408127`*^9, 3.9455288955940037`*^9, 
   3.945529336123519*^9, 3.945686023987749*^9, 3.9459522584775133`*^9, 
   3.945952860317287*^9, 3.9459538715711403`*^9, {3.945953930221562*^9, 
   3.945953971712739*^9}},
 CellLabel->
  "Out[2318]=",ExpressionUUID->"ff3c8a0b-4b03-4c0d-a4e4-5f032a5f39ba"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"k", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"s", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"t", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"c", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"beta", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"a", "=."}], "\[IndentingNewLine]", 
   RowBox[{"d", "=."}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", "**", "**", "**", "**", "**", "**", " ", "Sg"}], " ", 
     RowBox[{
     "3", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**"}]}], "*****)"}]}]}]], "Input",
 CellChangeTimes->{{3.814664525004904*^9, 3.814664540838704*^9}, {
   3.81474795117631*^9, 3.8147479513286457`*^9}, 3.8148112730291643`*^9, {
   3.814811377826195*^9, 3.814811410844803*^9}, {3.814812884532394*^9, 
   3.814812889832881*^9}, {3.814812922154365*^9, 3.814812930392301*^9}, {
   3.8148134733778553`*^9, 3.8148134752222633`*^9}, {3.859218794397949*^9, 
   3.859218794765278*^9}, {3.906894939497815*^9, 3.9068949399423943`*^9}, 
   3.9455281717293367`*^9},
 CellLabel->
  "In[2319]:=",ExpressionUUID->"d710807b-edbe-41a9-ade3-4bfa09c0cfe1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "=."}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"d", "=."}], "\n", 
 RowBox[{"PUSG3", " ", "=", " ", "Node6P"}], "\[IndentingNewLine]"}], "Input",\

 CellChangeTimes->{{3.814811352256537*^9, 3.814811359466757*^9}, 
   3.814811423297978*^9, 3.814813481012723*^9, 3.814813603150178*^9, {
   3.814815699980174*^9, 3.81481571013056*^9}},
 CellLabel->
  "In[2326]:=",ExpressionUUID->"d6e966f9-f993-44cd-80e9-4577c96e5d4e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "f"}], " ", "s"}], "+", 
  FractionBox["f", 
   RowBox[{"f", "+", "t"}]], "-", 
  FractionBox[
   RowBox[{"f", " ", "k", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox["f", 
       RowBox[{"f", "+", "t"}]]}], ")"}]}], "beta"]}]], "Output",
 CellChangeTimes->{
  3.814813604823053*^9, {3.814814326170725*^9, 3.814814346625568*^9}, 
   3.8148153641231747`*^9, 3.814815765085505*^9, 3.816988558779553*^9, 
   3.85921790546726*^9, 3.8592183420226793`*^9, 3.859218804992879*^9, 
   3.85924562245776*^9, 3.859245703503538*^9, 3.859411640137005*^9, 
   3.8595923765073547`*^9, 3.8629703901101627`*^9, 3.862971044012603*^9, 
   3.865294738864802*^9, 3.8652952206852417`*^9, 3.868400642627555*^9, 
   3.870021488144553*^9, 3.8701008309016542`*^9, 3.906561802878437*^9, {
   3.906869924892364*^9, 3.906869927021606*^9}, 3.9068704179020443`*^9, 
   3.906871176179723*^9, 3.906871380349258*^9, 3.9068714166403646`*^9, {
   3.906895082612718*^9, 3.9068950844125013`*^9}, 3.906897794475369*^9, 
   3.906898049549512*^9, 3.906898808102174*^9, 3.906899121097472*^9, 
   3.906899370011332*^9, 3.906899511159668*^9, 3.9068996287814493`*^9, 
   3.906967020382659*^9, 3.9069677209674*^9, 3.9076564096819077`*^9, 
   3.9076607683952637`*^9, 3.90766148708178*^9, 3.908622307387144*^9, 
   3.9086227465468197`*^9, 3.908622869777239*^9, {3.908628292115365*^9, 
   3.90862829311228*^9}, {3.9086293593748617`*^9, 3.908629414369274*^9}, 
   3.9086310701224537`*^9, 3.9455281737125187`*^9, 3.9455284193468246`*^9, 
   3.945528895607551*^9, 3.945529336134536*^9, 3.945686023994872*^9, 
   3.94595225849224*^9, 3.945952866707017*^9, 3.9459529016880207`*^9, 
   3.94595387158283*^9, {3.945953930234003*^9, 3.945953971724285*^9}},
 CellLabel->
  "Out[2328]=",ExpressionUUID->"970b16d4-d615-4bd1-994f-5d3a2802c49e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\[PartialD]", "f"], "PUSG3"}], "\[Equal]", "0"}], ",", 
     "f", ",", "NonNegativeReals"}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.8148136159687*^9, 3.814813623630949*^9}, {
  3.862970392954705*^9, 3.8629703951088047`*^9}, {3.906561807318676*^9, 
  3.906561807636965*^9}, {3.906869932458211*^9, 3.906869938066823*^9}},
 CellLabel->
  "In[2329]:=",ExpressionUUID->"f890d0a4-3f49-4f05-b0e2-c9071c71f847"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"f", "\[Rule]", 
    TemplateBox[{
      RowBox[{
        RowBox[{"-", "t"}], "+", 
        RowBox[{
          SqrtBox[
           FractionBox["1", 
            RowBox[{"beta", " ", "s"}]]], " ", 
          SqrtBox[
           RowBox[{
             RowBox[{"beta", " ", "t"}], "-", 
             RowBox[{"k", " ", 
               SuperscriptBox["t", "2"]}]}]]}]}], 
      RowBox[{
        RowBox[{"k", "<", 
          FractionBox["beta", "t"]}], "&&", 
        RowBox[{"s", "<", 
          FractionBox[
           RowBox[{"beta", "-", 
             RowBox[{"k", " ", "t"}]}], 
           RowBox[{"beta", " ", "t"}]]}]}]},
     "ConditionalExpression"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.814813625327736*^9, 3.814814350730351*^9, 3.814815368412043*^9, 
   3.814815768199292*^9, 3.816988561957851*^9, 3.859217905473254*^9, 
   3.8592183443241777`*^9, 3.8592188066144333`*^9, 3.859245622522066*^9, 
   3.8592457059466257`*^9, 3.859411640173985*^9, 3.859592376521892*^9, 
   3.862970395667705*^9, 3.862971044039125*^9, 3.86529473889636*^9, 
   3.865295220718892*^9, 3.868400642648445*^9, 3.8700214881633053`*^9, 
   3.870100830928956*^9, 3.906561808805277*^9, {3.906869929373604*^9, 
   3.906869938692971*^9}, 3.906870421326079*^9, 3.906871178293811*^9, 
   3.906871380388071*^9, 3.90687141667939*^9, 3.9068950866476192`*^9, 
   3.906897794544088*^9, 3.906898049595841*^9, 3.906898808144679*^9, 
   3.906899121140033*^9, 3.90689937005366*^9, 3.906899511202072*^9, 
   3.9068996288099318`*^9, 3.9069670216029367`*^9, 3.906967720996426*^9, 
   3.9076564097081127`*^9, 3.907660768444399*^9, 3.907661487104607*^9, 
   3.908622307408895*^9, 3.9086227466214046`*^9, 3.90862286980237*^9, 
   3.908628294493505*^9, {3.908629359397336*^9, 3.9086294143947268`*^9}, 
   3.908631070145249*^9, 3.945528176188105*^9, 3.9455284193637953`*^9, 
   3.945528895624476*^9, 3.9455293361515417`*^9, 3.9456860240116158`*^9, 
   3.945952258511969*^9, 3.945952903452414*^9, 3.945953871601961*^9, {
   3.945953930253358*^9, 3.9459539717435007`*^9}},
 CellLabel->
  "Out[2329]=",ExpressionUUID->"8f5948ef-a05c-431d-9efc-3aa720936aa2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"fstarsg3", " ", "=", " ", 
   RowBox[{
    RowBox[{"-", "t"}], "+", 
    RowBox[{
     SqrtBox[
      FractionBox["1", 
       RowBox[{"beta", " ", "s"}]]], " ", 
     SqrtBox[
      RowBox[{
       RowBox[{"beta", " ", "t"}], "-", 
       RowBox[{"k", " ", 
        SuperscriptBox["t", "2"]}]}]]}]}]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"f", "=", "fstarsg3"}]}], "Input",
 CellChangeTimes->{{3.814813631424466*^9, 3.814813656795336*^9}, {
   3.8148157133764153`*^9, 3.814815721656961*^9}, 3.859218366911003*^9, 
   3.862970404472912*^9, 3.906561815437086*^9, 3.906869947292284*^9},
 CellLabel->
  "In[2330]:=",ExpressionUUID->"85aabfd1-343f-48c2-9707-4ab8acf5603d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  RowBox[{
   SqrtBox[
    FractionBox["1", 
     RowBox[{"beta", " ", "s"}]]], " ", 
   SqrtBox[
    RowBox[{
     RowBox[{"beta", " ", "t"}], "-", 
     RowBox[{"k", " ", 
      SuperscriptBox["t", "2"]}]}]]}]}]], "Output",
 CellChangeTimes->{
  3.814813658310416*^9, 3.814814355175209*^9, 3.814815371093534*^9, 
   3.814815734270213*^9, 3.814815771805847*^9, 3.816988564391823*^9, 
   3.8592179054898*^9, {3.8592183528110533`*^9, 3.859218354288773*^9}, {
   3.859218808331015*^9, 3.859218809992529*^9}, 3.859245622534225*^9, {
   3.859245709336193*^9, 3.8592457109261103`*^9}, 3.859411640190054*^9, 
   3.859592376546376*^9, 3.8629704078596773`*^9, 3.8629710440571423`*^9, 
   3.8652947389132032`*^9, 3.865295220761862*^9, 3.868400642661127*^9, 
   3.870021488172928*^9, 3.870100830943613*^9, 3.906561816721931*^9, 
   3.906869948719018*^9, {3.906870424414591*^9, 3.906870428570133*^9}, {
   3.90687118504716*^9, 3.9068711876114883`*^9}, 3.9068713803977222`*^9, 
   3.906871416689292*^9, {3.906895089912224*^9, 3.906895101653319*^9}, 
   3.906897794560025*^9, 3.906898049610235*^9, 3.906898808158251*^9, 
   3.906899121159514*^9, 3.9068993700678577`*^9, 3.906899511216155*^9, 
   3.9068996288225527`*^9, {3.906967023009729*^9, 3.906967024191058*^9}, 
   3.906967721006909*^9, 3.907656409711982*^9, 3.907660768450335*^9, 
   3.907661487109171*^9, 3.908622307414567*^9, 3.908622746626616*^9, 
   3.908622869807437*^9, {3.90862829593038*^9, 3.9086282973963623`*^9}, {
   3.908629359403246*^9, 3.908629414400483*^9}, 3.908631070166752*^9, {
   3.945528178542894*^9, 3.945528180885569*^9}, 3.9455284193674097`*^9, 
   3.945528895628031*^9, 3.945529336155057*^9, 3.945686024015457*^9, 
   3.945952258517048*^9, {3.945952904814828*^9, 3.945952906290721*^9}, 
   3.945953871605879*^9, {3.945953930257807*^9, 3.9459539717488527`*^9}},
 CellLabel->
  "Out[2330]=",ExpressionUUID->"3e8d9ac3-83d0-44f6-acf4-3c11547c6da2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  RowBox[{
   SqrtBox[
    FractionBox["1", 
     RowBox[{"beta", " ", "s"}]]], " ", 
   SqrtBox[
    RowBox[{
     RowBox[{"beta", " ", "t"}], "-", 
     RowBox[{"k", " ", 
      SuperscriptBox["t", "2"]}]}]]}]}]], "Output",
 CellChangeTimes->{
  3.814813658310416*^9, 3.814814355175209*^9, 3.814815371093534*^9, 
   3.814815734270213*^9, 3.814815771805847*^9, 3.816988564391823*^9, 
   3.8592179054898*^9, {3.8592183528110533`*^9, 3.859218354288773*^9}, {
   3.859218808331015*^9, 3.859218809992529*^9}, 3.859245622534225*^9, {
   3.859245709336193*^9, 3.8592457109261103`*^9}, 3.859411640190054*^9, 
   3.859592376546376*^9, 3.8629704078596773`*^9, 3.8629710440571423`*^9, 
   3.8652947389132032`*^9, 3.865295220761862*^9, 3.868400642661127*^9, 
   3.870021488172928*^9, 3.870100830943613*^9, 3.906561816721931*^9, 
   3.906869948719018*^9, {3.906870424414591*^9, 3.906870428570133*^9}, {
   3.90687118504716*^9, 3.9068711876114883`*^9}, 3.9068713803977222`*^9, 
   3.906871416689292*^9, {3.906895089912224*^9, 3.906895101653319*^9}, 
   3.906897794560025*^9, 3.906898049610235*^9, 3.906898808158251*^9, 
   3.906899121159514*^9, 3.9068993700678577`*^9, 3.906899511216155*^9, 
   3.9068996288225527`*^9, {3.906967023009729*^9, 3.906967024191058*^9}, 
   3.906967721006909*^9, 3.907656409711982*^9, 3.907660768450335*^9, 
   3.907661487109171*^9, 3.908622307414567*^9, 3.908622746626616*^9, 
   3.908622869807437*^9, {3.90862829593038*^9, 3.9086282973963623`*^9}, {
   3.908629359403246*^9, 3.908629414400483*^9}, 3.908631070166752*^9, {
   3.945528178542894*^9, 3.945528180885569*^9}, 3.9455284193674097`*^9, 
   3.945528895628031*^9, 3.945529336155057*^9, 3.945686024015457*^9, 
   3.945952258517048*^9, {3.945952904814828*^9, 3.945952906290721*^9}, 
   3.945953871605879*^9, {3.945953930257807*^9, 3.945953971750194*^9}},
 CellLabel->
  "Out[2331]=",ExpressionUUID->"6ae8187f-b13a-457d-ba89-90d8084c3556"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "f", "]"}]], "Input",
 NumberMarks->False,
 CellLabel->
  "In[2332]:=",ExpressionUUID->"a309d6c0-27b9-4fc4-9b5b-fd3dd9dc6793"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  SqrtBox[
   FractionBox[
    RowBox[{"t", " ", 
     RowBox[{"(", 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}], ")"}]}], 
    RowBox[{"beta", " ", "s"}]]]}]], "Output",
 CellChangeTimes->{{3.94595291329991*^9, 3.945952916014244*^9}, 
   3.9459538716211*^9, {3.9459539302729607`*^9, 3.945953971764626*^9}},
 CellLabel->
  "Out[2332]=",ExpressionUUID->"53ea9d6d-168d-41fd-b1a4-3212ef79a13a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pstarsg3", " ", "=", " ", 
  RowBox[{"(", 
   RowBox[{"fstarsg3", "/", 
    RowBox[{"(", 
     RowBox[{"fstarsg3", "+", "t"}], ")"}]}], ")"}]}]], "Input",
 CellLabel->
  "In[2333]:=",ExpressionUUID->"f7206a83-6240-4c38-aea4-83ef51aa96fd"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "t"}], "+", 
   RowBox[{
    SqrtBox[
     FractionBox["1", 
      RowBox[{"beta", " ", "s"}]]], " ", 
    SqrtBox[
     RowBox[{
      RowBox[{"beta", " ", "t"}], "-", 
      RowBox[{"k", " ", 
       SuperscriptBox["t", "2"]}]}]]}]}], 
  RowBox[{
   SqrtBox[
    FractionBox["1", 
     RowBox[{"beta", " ", "s"}]]], " ", 
   SqrtBox[
    RowBox[{
     RowBox[{"beta", " ", "t"}], "-", 
     RowBox[{"k", " ", 
      SuperscriptBox["t", "2"]}]}]]}]]], "Output",
 CellChangeTimes->{
  3.814813658310416*^9, 3.814814355175209*^9, 3.814815371093534*^9, 
   3.814815734270213*^9, 3.814815771805847*^9, 3.816988564391823*^9, 
   3.8592179054898*^9, {3.8592183528110533`*^9, 3.8592183697821617`*^9}, 
   3.859218812167489*^9, 3.859245622565897*^9, 3.859245712892708*^9, 
   3.8594116402334538`*^9, 3.8595923765700397`*^9, 3.862970410819366*^9, 
   3.862971044090597*^9, 3.865294738944734*^9, 3.865295220782933*^9, 
   3.8684006426822977`*^9, 3.870021488191881*^9, 3.870100830967243*^9, 
   3.90656182127722*^9, 3.906869951958902*^9, 3.90687043088925*^9, 
   3.906871189876726*^9, 3.906871380425003*^9, 3.90687141671946*^9, 
   3.906895105007615*^9, 3.906897794593388*^9, 3.906898049635994*^9, 
   3.906898808186143*^9, 3.906899121193512*^9, 3.906899370100589*^9, 
   3.906899511250808*^9, 3.906899628848937*^9, 3.906967025611422*^9, 
   3.9069677210327272`*^9, 3.90765640972682*^9, 3.907660768461734*^9, 
   3.9076614871140013`*^9, 3.908622307421226*^9, 3.9086227466395197`*^9, 
   3.908622869824285*^9, 3.908628298661224*^9, {3.908629359414589*^9, 
   3.908629414412652*^9}, 3.9086310701799393`*^9, 3.945528190468349*^9, 
   3.9455284193792267`*^9, 3.9455288956343727`*^9, 3.945529336165201*^9, 
   3.945686024022153*^9, 3.945952258526422*^9, 3.945953041376239*^9, 
   3.945953871624694*^9, {3.9459539302767677`*^9, 3.945953971768561*^9}},
 CellLabel->
  "Out[2333]=",ExpressionUUID->"403b8535-9455-4ea4-a136-6f5fc472e6c5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pstarsg3", " ", "=", 
  RowBox[{"FullSimplify", "[", "pstarsg3", "]"}]}]], "Input",
 CellChangeTimes->{
  3.85921837613864*^9, {3.906967030933424*^9, 3.906967031552697*^9}},
 NumberMarks->False,
 CellLabel->
  "In[2334]:=",ExpressionUUID->"caeb1014-6c63-4bbd-9667-a1cf4706d9ad"],

Cell[BoxData[
 RowBox[{"1", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{
  3.8592183715487328`*^9, 3.859218813942348*^9, 3.859245622578669*^9, 
   3.859245714832464*^9, 3.859411640272045*^9, 3.859592376599367*^9, 
   3.8629704129475613`*^9, 3.862971044142618*^9, 3.865294739000161*^9, 
   3.8652952208405113`*^9, 3.8684006427248087`*^9, 3.870021488234681*^9, 
   3.870100831014192*^9, 3.906561823659375*^9, 3.906869954133665*^9, 
   3.906870438745261*^9, 3.9068711928709087`*^9, 3.906871380483183*^9, 
   3.9068714167776747`*^9, 3.906895106814603*^9, 3.906895470391019*^9, 
   3.906895675535956*^9, 3.9068977946544952`*^9, 3.906898049697875*^9, 
   3.9068988082467833`*^9, 3.906899121256654*^9, 3.906899370162632*^9, 
   3.906899511312199*^9, 3.9068996288894777`*^9, {3.906967026767173*^9, 
   3.9069670326119337`*^9}, 3.9069677211295652`*^9, 3.9076564098098288`*^9, 
   3.9076607685531893`*^9, 3.907661487205114*^9, 3.908622307509883*^9, 
   3.908622746730238*^9, 3.908622869917529*^9, 3.908628300206567*^9, {
   3.908629359500288*^9, 3.9086294145163183`*^9}, 3.90863107026899*^9, 
   3.94552819345816*^9, 3.945528419445612*^9, 3.945528895700591*^9, 
   3.945529336232448*^9, 3.9456860240893307`*^9, 3.945952258602829*^9, 
   3.94595304297996*^9, 3.94595387169398*^9, {3.945953930345983*^9, 
   3.945953971837347*^9}},
 CellLabel->
  "Out[2334]=",ExpressionUUID->"bd5a2bd3-9720-4e89-9766-a4c0556fca17"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.814813717326144*^9, 3.814813721626821*^9}, {
   3.814813755733878*^9, 3.814813757207923*^9}, {3.814813804237296*^9, 
   3.814813804860663*^9}, 3.859218385798154*^9},
 CellLabel->
  "In[2335]:=",ExpressionUUID->"4c367a33-aa4f-4121-bf92-a4d3ff3cb040"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"dstarsg3", " ", "=", " ", 
    RowBox[{"pstarsg3", "+", "c"}]}], "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.8148144732999897`*^9, 3.8148145117717524`*^9}, {
  3.906895693974471*^9, 3.906895698209076*^9}, {3.906895752708424*^9, 
  3.9068957576846657`*^9}},
 CellLabel->
  "In[2336]:=",ExpressionUUID->"0e1f29f5-cbe7-4060-ac1b-fed4f0510552"],

Cell[BoxData[
 RowBox[{"1", "+", "c", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{{3.814814497258731*^9, 3.8148145145805483`*^9}, 
   3.814815421237*^9, 3.81481584606857*^9, 3.814817164197566*^9, 
   3.816988604728545*^9, 3.859218871500132*^9, 3.859245622756466*^9, 
   3.859245758771456*^9, 3.859411640599545*^9, 3.8595923769032907`*^9, 
   3.862970436618342*^9, 3.862971044997786*^9, 3.865294739826002*^9, 
   3.865295221795843*^9, 3.868400643506352*^9, 3.870021488978278*^9, 
   3.87010083178016*^9, 3.906561865553183*^9, 3.906869985579502*^9, 
   3.906870458911016*^9, 3.906871226792871*^9, 3.9068713815723667`*^9, 
   3.906871417875978*^9, 3.90689569224369*^9, 3.9068957581854897`*^9, 
   3.9068977946815453`*^9, 3.906898049718486*^9, 3.906898808300889*^9, 
   3.906899121282892*^9, 3.906899370188939*^9, 3.906899511340308*^9, 
   3.90689962890891*^9, 3.906967039980947*^9, 3.906967721150468*^9, 
   3.907656409823522*^9, 3.9076607685588293`*^9, 3.907661487214877*^9, 
   3.908622307515853*^9, 3.9086227467441587`*^9, 3.9086228699236107`*^9, 
   3.908628324883048*^9, {3.908629359511621*^9, 3.908629414532251*^9}, 
   3.9086310702809477`*^9, 3.945528196200883*^9, 3.945528419458192*^9, 
   3.945528895708819*^9, 3.94552933624473*^9, 3.945686024096662*^9, 
   3.945952258617887*^9, 3.945953102500967*^9, 3.9459538717060537`*^9, {
   3.945953930357676*^9, 3.9459539718493147`*^9}},
 CellLabel->
  "Out[2336]=",ExpressionUUID->"a4ef1050-dfbd-4861-9485-8beb9ab5194e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dstarsg3", " ", "=", 
  RowBox[{"FullSimplify", "[", "dstarsg3", "]"}]}]], "Input",
 CellChangeTimes->{3.906895768464673*^9},
 NumberMarks->False,
 CellLabel->
  "In[2337]:=",ExpressionUUID->"ea4d044a-ef98-4f02-8b0c-4086adef1586"],

Cell[BoxData[
 RowBox[{"1", "+", "c", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{{3.906895762757318*^9, 3.9068957694021807`*^9}, 
   3.906897794842984*^9, 3.906898049880629*^9, 3.9068988084631968`*^9, 
   3.90689912145434*^9, 3.906899370351838*^9, 3.9068995115044813`*^9, 
   3.906899629010429*^9, 3.906967042320546*^9, 3.906967721177888*^9, 
   3.907656409842877*^9, 3.907660768579688*^9, 3.90766148723876*^9, 
   3.908622307537059*^9, 3.908622746768984*^9, 3.908622869945112*^9, 
   3.908628326117847*^9, {3.908629359532569*^9, 3.908629414554161*^9}, 
   3.908631070303421*^9, 3.945528198034623*^9, 3.94552841947443*^9, 
   3.945528895724946*^9, 3.945529336261208*^9, 3.94568602411257*^9, 
   3.945952258636704*^9, 3.945953104118206*^9, 3.945953871724279*^9, {
   3.9459539303757763`*^9, 3.9459539718674593`*^9}},
 CellLabel->
  "Out[2337]=",ExpressionUUID->"36c07382-8851-4928-8f5f-721dd03ff347"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{"d", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"d", " ", "=", " ", "dstarsg3"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.814814600630628*^9, 3.8148146158194*^9}, 
   3.906895825006795*^9, 3.945528206655302*^9, {3.945953128917597*^9, 
   3.945953129668921*^9}},
 CellLabel->
  "In[2338]:=",ExpressionUUID->"f2ed2750-aded-4a73-a2a0-dbdab40473f8"],

Cell[BoxData[
 RowBox[{"1", "+", "c", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{
  3.814814618010314*^9, 3.814815436067709*^9, 3.814815867953614*^9, 
   3.814817184224081*^9, 3.8169886112640123`*^9, 3.859218910208774*^9, 
   3.859245622826915*^9, 3.859245779171689*^9, 3.8594116407737923`*^9, 
   3.8595923770933447`*^9, 3.862970447902753*^9, 3.862971045134152*^9, 
   3.8652947400379677`*^9, 3.865295221912718*^9, 3.868400643596323*^9, 
   3.870021489065174*^9, 3.870100831872837*^9, 3.906561871378158*^9, 
   3.906869990567583*^9, 3.9068704636116056`*^9, 3.906871232041835*^9, 
   3.906871382025803*^9, 3.906871418320002*^9, 3.906895874260476*^9, 
   3.906897794854658*^9, 3.90689804989286*^9, 3.9068988084757643`*^9, 
   3.906899121467691*^9, 3.906899370364644*^9, 3.9068995115177097`*^9, 
   3.906899629020261*^9, 3.906967055650238*^9, 3.906967721187849*^9, 
   3.907656409846037*^9, 3.9076607685899*^9, 3.907661487242717*^9, 
   3.908622307540835*^9, 3.908622746773117*^9, 3.908622869958336*^9, 
   3.908628330064492*^9, {3.908629359537642*^9, 3.908629414560341*^9}, 
   3.9086310703092203`*^9, 3.945528208610655*^9, 3.9455284194823017`*^9, 
   3.94552889572793*^9, 3.945529336269937*^9, 3.945686024115724*^9, 
   3.945952258652712*^9, {3.945953114052137*^9, 3.94595313282513*^9}, 
   3.945953871730257*^9, {3.945953930382284*^9, 3.9459539718736563`*^9}},
 CellLabel->
  "Out[2339]=",ExpressionUUID->"dfeadfef-4407-4b2c-92ff-55fc46c3948a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.814815594337995*^9, 3.8148156035598183`*^9}},
 CellLabel->
  "In[2340]:=",ExpressionUUID->"bfe0bbba-e50f-4a9f-b534-1ee934392963"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Dstarsg3", " ", "=", " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"dstarsg3", " ", ">", " ", "1"}], ",", "1", ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"dstarsg3", " ", "<", " ", "0"}], ",", "0", ",", "dstarsg3"}], 
      "]"}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.814814834029901*^9, 3.814814900521966*^9}, 
   3.9069670526660557`*^9},
 CellLabel->
  "In[2341]:=",ExpressionUUID->"e4b5e3a7-3fb7-4b1a-9798-e878a4eb8a36"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "+", "c", "-", 
     SqrtBox[
      FractionBox[
       RowBox[{"beta", " ", "s", " ", "t"}], 
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}]]]}], ">", "1"}], ",", "1", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{
  3.814814903701456*^9, 3.8148154584783792`*^9, 3.814815910712919*^9, 
   3.814817228411625*^9, 3.816988628786416*^9, 3.85921894223663*^9, 
   3.859245622932045*^9, 3.8592458013891373`*^9, 3.859411641197456*^9, 
   3.859592377522831*^9, 3.8629704731138887`*^9, 3.862971046195992*^9, 
   3.865294741109359*^9, 3.8652952229940577`*^9, 3.868400644695941*^9, 
   3.870021490044826*^9, 3.870100832876103*^9, 3.9065618798440313`*^9, 
   3.9068700005881844`*^9, 3.906870475344503*^9, 3.906871241499263*^9, 
   3.906871383485462*^9, 3.906871419783434*^9, 3.906895897834968*^9, 
   3.906897794883037*^9, 3.906898049913988*^9, 3.9068988084990788`*^9, 
   3.906899121494766*^9, 3.906899370392385*^9, 3.906899511548099*^9, 
   3.906899629062875*^9, 3.906967056720405*^9, 3.90696772122537*^9, 
   3.907656409859762*^9, 3.9076607685953293`*^9, 3.907661487248242*^9, 
   3.908622307552075*^9, 3.9086227467785788`*^9, 3.9086228699731827`*^9, 
   3.908628331755364*^9, {3.908629359550372*^9, 3.9086294145745783`*^9}, 
   3.90863107032092*^9, 3.945528211141139*^9, 3.945528419494122*^9, 
   3.9455288957391253`*^9, 3.945529336281358*^9, 3.945686024122592*^9, 
   3.9459522586605597`*^9, 3.9459531361417217`*^9, 3.945953871741433*^9, {
   3.945953930393936*^9, 3.945953971885099*^9}},
 CellLabel->
  "Out[2341]=",ExpressionUUID->"57ec2182-2381-4780-9ca3-efcabcc7b565"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"k", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"s", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"t", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"c", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"beta", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"a", "=."}], "\[IndentingNewLine]", 
   RowBox[{"d", "=."}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.81481595266424*^9, 3.8148159533847437`*^9}, 
   3.814816134738083*^9, {3.859219068880003*^9, 3.859219069315218*^9}, {
   3.9068959182383003`*^9, 3.906895918579336*^9}, {3.945953138895515*^9, 
   3.9459531397633877`*^9}},
 CellLabel->
  "In[2342]:=",ExpressionUUID->"ca7b1d9a-a279-4147-9b0b-6a2bc372adc5"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**"}], "*", 
    RowBox[{"Congress", "'"}], "s", " ", 
    RowBox[{"Decision", "**", "**", "**"}], "*", "*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}]}], 
   "**********)"}]}]], "Input",
 CellChangeTimes->{{3.814664884269059*^9, 3.814664948310218*^9}, {
   3.814748091414303*^9, 3.814748146576082*^9}, {3.814748334865695*^9, 
   3.81474838446976*^9}, 3.8147484165193043`*^9, {3.814748481933243*^9, 
   3.814748494827571*^9}, {3.814814992883623*^9, 3.814814994639441*^9}, {
   3.9068959789005213`*^9, 3.906895981605139*^9}, {3.945953144054311*^9, 
   3.94595314530536*^9}},
 CellLabel->
  "In[2349]:=",ExpressionUUID->"4e48cdff-ecdb-461e-9cd2-88f7a81c24d4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Now", " ", "that", " ", "we", " ", "know", " ", "Congress", " ", "and", 
     " ", 
     RowBox[{"Prez", "'"}], "s", " ", "expected", " ", "payoffs", " ", "from",
      " ", "each", " ", "subgame"}], ",", " ", 
    RowBox[{
     RowBox[{"let", "'"}], "s", " ", "figure", " ", "out", " ", 
     RowBox[{"Congress", "'"}], "s", " ", "decision"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"UCsg1", " ", "=", " ", 
    RowBox[{"beta", "*", "Dstarsg1"}]}], "\[IndentingNewLine]", 
   RowBox[{"UCsg2", " ", "=", " ", 
    RowBox[{"beta", "*", "Dstarsg2"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.814664950620144*^9, 3.814664982360955*^9}, {
  3.814665207578147*^9, 3.8146652182096024`*^9}, {3.8146655453957977`*^9, 
  3.814665550530431*^9}, {3.814817944908559*^9, 3.8148179475948877`*^9}, {
  3.859219094583047*^9, 3.859219103375312*^9}, {3.906895986852392*^9, 
  3.9068960370569563`*^9}},
 CellLabel->
  "In[2350]:=",ExpressionUUID->"125ae15c-8aa3-4f93-8e8d-98526880df05"],

Cell[BoxData[
 RowBox[{"beta", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"1", "+", "c", "-", 
      SqrtBox[
       RowBox[{"s", " ", "t"}]]}], ">", "1"}], ",", "1", ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], "]"}]}], 
   "]"}]}]], "Output",
 CellChangeTimes->{
  3.9068960413615227`*^9, 3.906897807054459*^9, {3.906898050502193*^9, 
   3.906898078790433*^9}, 3.906898808993264*^9, 3.906899122039452*^9, 
   3.906899370880595*^9, 3.906899512058978*^9, 3.906899629431836*^9, 
   3.906967371882669*^9, 3.9069677215123863`*^9, 3.907656410044427*^9, 
   3.907660768742508*^9, 3.907661487423792*^9, 3.9086223077297773`*^9, 
   3.908622747005918*^9, 3.908622870183022*^9, 3.908628413215266*^9, 
   3.908628446189213*^9, {3.908629359655245*^9, 3.908629414682315*^9}, 
   3.9086310704328823`*^9, 3.945528230899248*^9, 3.945528419508009*^9, 
   3.9455288957494583`*^9, 3.9455293362946587`*^9, 3.945686024136717*^9, 
   3.945952258675865*^9, 3.9459538717502813`*^9, {3.945953930411727*^9, 
   3.9459539719008217`*^9}},
 CellLabel->
  "Out[2350]=",ExpressionUUID->"d0a68800-f9f8-4fb4-ba76-0fe9bd0bccbd"],

Cell[BoxData[
 RowBox[{"beta", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"1", "+", "c", "-", 
      SqrtBox[
       FractionBox[
        RowBox[{"beta", " ", "s", " ", "t"}], 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}]]]}], ">", "1"}], ",", "1", ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], "]"}]}], 
   "]"}]}]], "Output",
 CellChangeTimes->{
  3.9068960413615227`*^9, 3.906897807054459*^9, {3.906898050502193*^9, 
   3.906898078790433*^9}, 3.906898808993264*^9, 3.906899122039452*^9, 
   3.906899370880595*^9, 3.906899512058978*^9, 3.906899629431836*^9, 
   3.906967371882669*^9, 3.9069677215123863`*^9, 3.907656410044427*^9, 
   3.907660768742508*^9, 3.907661487423792*^9, 3.9086223077297773`*^9, 
   3.908622747005918*^9, 3.908622870183022*^9, 3.908628413215266*^9, 
   3.908628446189213*^9, {3.908629359655245*^9, 3.908629414682315*^9}, 
   3.9086310704328823`*^9, 3.945528230899248*^9, 3.945528419508009*^9, 
   3.9455288957494583`*^9, 3.9455293362946587`*^9, 3.945686024136717*^9, 
   3.945952258675865*^9, 3.9459538717502813`*^9, {3.945953930411727*^9, 
   3.94595397190224*^9}},
 CellLabel->
  "Out[2351]=",ExpressionUUID->"8fa910fa-4712-4035-bd95-1740250e6284"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"**", "solving"}], " ", "analytically"}], ",", " ", 
    RowBox[{
     RowBox[{"we", " ", "see", " ", "the", " ", "inequality", " ", "UCsg1"}], 
     "  ", ">=", " ", 
     RowBox[{
     "UCsg2", " ", "holds", " ", "so", " ", "long", " ", "as", " ", "beta"}], 
     " ", ">", " ", "0"}], ",", " ", 
    RowBox[{"which", " ", "is", " ", "true", " ", "by", " ", "definition"}]}],
    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.906896039122423*^9, 3.906896040192027*^9}, {
  3.945954009332322*^9, 
  3.945954039392741*^9}},ExpressionUUID->"cd583371-b9c2-4a67-8fbb-\
557e0e3afa2f"],

Cell[BoxData[
 RowBox[{"beta", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"c", ">", 
       SqrtBox[
        RowBox[{"s", " ", "t"}]]}], ",", "1", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], "]"}]}], 
     "]"}], "-", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"c", ">", 
       SqrtBox[
        FractionBox[
         RowBox[{"beta", " ", "s", " ", "t"}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]]]}], ",", "1", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], "]"}]}], 
     "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.906898809194441*^9, 3.906899126329314*^9, 3.9068993710849667`*^9, 
   3.90689951226342*^9, 3.906899629559453*^9, 3.906967374840612*^9, 
   3.9069677216281424`*^9, 3.907656410152308*^9, 3.907660768844236*^9, 
   3.9076614875257*^9, 3.908622307848949*^9, 3.9086227471075068`*^9, 
   3.9086228702830057`*^9, 3.908628416369255*^9, 3.908628458813878*^9, {
   3.90862935976397*^9, 3.908629414782281*^9}, 3.9086310705448017`*^9, 
   3.945528232960019*^9, 3.94552841958591*^9, 3.945528895836734*^9, 
   3.9455293363831453`*^9, 3.945686024225277*^9, 3.945952258774544*^9, 
   3.945953871839423*^9, {3.9459539305011997`*^9, 3.945953971989122*^9}},
 CellLabel->
  "Out[2352]=",ExpressionUUID->"d47acafd-da23-492d-bdaa-f0c9fc86d364"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{"UPsg1", " ", "=", " ", 
    RowBox[{"Dstarsg1", "-", "a"}]}], "\[IndentingNewLine]", 
   RowBox[{"UPsg2", " ", "=", " ", 
    RowBox[{"Dstarsg2", "-", "a"}]}], "\[IndentingNewLine]", 
   RowBox[{"UPsg3", " ", "=", " ", "Dstarsg3"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.8147253667453938`*^9, 3.814725392309165*^9}, {
  3.8629709530183496`*^9, 3.862970957721285*^9}, {3.906896084186727*^9, 
  3.906896145803754*^9}},
 CellLabel->
  "In[2353]:=",ExpressionUUID->"6609b1a3-d8bc-4ae2-9fe3-33f73c0603c1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "+", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"1", "+", "c", "-", 
      SqrtBox[
       RowBox[{"s", " ", "t"}]]}], ">", "1"}], ",", "1", ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], "]"}]}], 
   "]"}]}]], "Output",
 CellChangeTimes->{{3.906899620904332*^9, 3.9068996296081667`*^9}, 
   3.906967381109643*^9, 3.9069677216792793`*^9, 3.907656410172721*^9, 
   3.907660768861259*^9, 3.907661487545143*^9, 3.9086223078703117`*^9, 
   3.908622747130662*^9, 3.908622870306916*^9, 3.908628471582988*^9, {
   3.908629359769104*^9, 3.9086294147877893`*^9}, 3.908631070551112*^9, 
   3.9455282351310377`*^9, 3.945528419589553*^9, 3.945528895840176*^9, 
   3.945529336387762*^9, 3.945686024228723*^9, 3.945952258779542*^9, 
   3.945953871843307*^9, {3.94595393050576*^9, 3.945953971993479*^9}},
 CellLabel->
  "Out[2353]=",ExpressionUUID->"1b026af1-d9b4-4344-a4ac-41d7417964de"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "+", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"1", "+", "c", "-", 
      SqrtBox[
       FractionBox[
        RowBox[{"beta", " ", "s", " ", "t"}], 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}]]]}], ">", "1"}], ",", "1", ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], "]"}]}], 
   "]"}]}]], "Output",
 CellChangeTimes->{{3.906899620904332*^9, 3.9068996296081667`*^9}, 
   3.906967381109643*^9, 3.9069677216792793`*^9, 3.907656410172721*^9, 
   3.907660768861259*^9, 3.907661487545143*^9, 3.9086223078703117`*^9, 
   3.908622747130662*^9, 3.908622870306916*^9, 3.908628471582988*^9, {
   3.908629359769104*^9, 3.9086294147877893`*^9}, 3.908631070551112*^9, 
   3.9455282351310377`*^9, 3.945528419589553*^9, 3.945528895840176*^9, 
   3.945529336387762*^9, 3.945686024228723*^9, 3.945952258779542*^9, 
   3.945953871843307*^9, {3.94595393050576*^9, 3.94595397199506*^9}},
 CellLabel->
  "Out[2354]=",ExpressionUUID->"6bbaea7e-735b-4c39-8328-0164d70597df"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "+", "c", "-", 
     SqrtBox[
      FractionBox[
       RowBox[{"beta", " ", "s", " ", "t"}], 
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}]]]}], ">", "1"}], ",", "1", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{{3.906899620904332*^9, 3.9068996296081667`*^9}, 
   3.906967381109643*^9, 3.9069677216792793`*^9, 3.907656410172721*^9, 
   3.907660768861259*^9, 3.907661487545143*^9, 3.9086223078703117`*^9, 
   3.908622747130662*^9, 3.908622870306916*^9, 3.908628471582988*^9, {
   3.908629359769104*^9, 3.9086294147877893`*^9}, 3.908631070551112*^9, 
   3.9455282351310377`*^9, 3.945528419589553*^9, 3.945528895840176*^9, 
   3.945529336387762*^9, 3.945686024228723*^9, 3.945952258779542*^9, 
   3.945953871843307*^9, {3.94595393050576*^9, 3.9459539719964523`*^9}},
 CellLabel->
  "Out[2355]=",ExpressionUUID->"799b8a22-adee-4bdf-b765-965cfd3504cd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"dstarsg3", "\[IndentingNewLine]", 
 RowBox[{"dstarsg1", "-", "a"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.906899731041112*^9, 3.906899758455789*^9}},
 CellLabel->
  "In[2356]:=",ExpressionUUID->"b87dc459-b2fd-4804-abd3-7739672dfe12"],

Cell[BoxData[
 RowBox[{"1", "+", "c", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{{3.9068997370787277`*^9, 3.906899759303152*^9}, 
   3.906967382582437*^9, 3.9069677217146597`*^9, 3.9076564101775093`*^9, 
   3.907660768868794*^9, 3.907661487557548*^9, 3.9086223078802423`*^9, 
   3.908622747137617*^9, 3.908622870325787*^9, 3.908628475484309*^9, {
   3.908629359782607*^9, 3.908629414801441*^9}, 3.908631070566249*^9, 
   3.9455282373892612`*^9, 3.945528419601602*^9, 3.945528895847755*^9, 
   3.945529336401342*^9, 3.9456860242366257`*^9, 3.945952258790533*^9, 
   3.945953871856042*^9, {3.945953930518627*^9, 3.9459539720073442`*^9}},
 CellLabel->
  "Out[2356]=",ExpressionUUID->"412cf22a-5fe8-4841-8ea8-870522d2e952"],

Cell[BoxData[
 RowBox[{"1", "-", "a", "+", "c", "-", 
  SqrtBox[
   RowBox[{"s", " ", "t"}]]}]], "Output",
 CellChangeTimes->{{3.9068997370787277`*^9, 3.906899759303152*^9}, 
   3.906967382582437*^9, 3.9069677217146597`*^9, 3.9076564101775093`*^9, 
   3.907660768868794*^9, 3.907661487557548*^9, 3.9086223078802423`*^9, 
   3.908622747137617*^9, 3.908622870325787*^9, 3.908628475484309*^9, {
   3.908629359782607*^9, 3.908629414801441*^9}, 3.908631070566249*^9, 
   3.9455282373892612`*^9, 3.945528419601602*^9, 3.945528895847755*^9, 
   3.945529336401342*^9, 3.9456860242366257`*^9, 3.945952258790533*^9, 
   3.945953871856042*^9, {3.945953930518627*^9, 3.9459539720089617`*^9}},
 CellLabel->
  "Out[2357]=",ExpressionUUID->"eef52f6e-8015-4673-8788-fb7f1e41b79d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"When", " ", "will", " ", "President", " ", 
    RowBox[{"ask", "?"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"dstarsg1", "-", "a"}], " ", "==", " ", "dstarsg3"}], ",", 
     "a"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",\

 CellChangeTimes->{{3.906899523873385*^9, 3.906899541288414*^9}, {
   3.906899636877307*^9, 3.90689966098518*^9}, {3.906899713932493*^9, 
   3.906899748005793*^9}, 3.945953904751026*^9},
 CellLabel->
  "In[2358]:=",ExpressionUUID->"c4c4c247-7fd8-4a7c-966b-a259a78a6c84"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"a", "\[Rule]", 
    TemplateBox[{
      RowBox[{
        RowBox[{"-", 
          SqrtBox[
           RowBox[{"s", " ", "t"}]]}], "+", 
        RowBox[{
          SqrtBox[
           RowBox[{"beta", " ", "s", " ", "t"}]], " ", 
          SqrtBox[
           RowBox[{"-", 
             FractionBox["1", 
              RowBox[{
                RowBox[{"-", "beta"}], "+", 
                RowBox[{"k", " ", "t"}]}]]}]]}]}], 
      RowBox[{
        RowBox[{"s", "<", 
          FractionBox["1", "t"]}], "&&", 
        RowBox[{"beta", ">", 
          RowBox[{"-", 
            FractionBox[
             RowBox[{"k", " ", "t"}], 
             RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"s", " ", "t"}]}]]}]}]}]},
     "ConditionalExpression"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.9086287582627773`*^9, {3.908629359943755*^9, 3.908629414972045*^9}, 
   3.908631070732643*^9, 3.945528241156035*^9, 3.945528419724492*^9, 
   3.945528895974762*^9, 3.9455293365318823`*^9, 3.9456860243636637`*^9, 
   3.945952258933462*^9, 3.945953871997095*^9, {3.945953930660243*^9, 
   3.9459539721489477`*^9}},
 CellLabel->
  "Out[2358]=",ExpressionUUID->"4a55d36d-98e8-47bc-83bb-0ff61e46df48"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"dstarsg1", "-", "dstarsg3"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.9086286316480713`*^9, 3.908628651487686*^9}, {
  3.908628722916934*^9, 3.9086287265829687`*^9}, {3.9086288344438467`*^9, 
  3.908628837448266*^9}},
 CellLabel->
  "In[2359]:=",ExpressionUUID->"1e1f135f-2325-4c2b-88f5-086032f00984"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SqrtBox[
    RowBox[{"s", " ", "t"}]]}], "+", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{{3.906896137589945*^9, 3.906896146594885*^9}, 
   3.906897807269034*^9, 3.906898392620736*^9, 3.906898439183777*^9, 
   3.906898809398136*^9, 3.906899153992961*^9, 3.906899371166789*^9, 
   3.906899512347761*^9, {3.906899706589574*^9, 3.906899724305212*^9}, 
   3.906967386336542*^9, 3.906967721889526*^9, 3.907656411457754*^9, 
   3.9076607690321627`*^9, 3.907661487758718*^9, 3.908622308051951*^9, 
   3.908622747298601*^9, 3.9086228704869757`*^9, 3.9086284785015717`*^9, 
   3.908628518463999*^9, 3.908628652425951*^9, 3.908628728016301*^9, 
   3.9086288386112013`*^9, {3.908629359949243*^9, 3.9086294149783154`*^9}, 
   3.908631070739428*^9, 3.945528245154065*^9, 3.945528419729252*^9, 
   3.945528895978694*^9, 3.945529336535831*^9, 3.9456860243678303`*^9, 
   3.945952258938551*^9, 3.945953872001205*^9, {3.945953930664776*^9, 
   3.945953972153521*^9}},
 CellLabel->
  "Out[2359]=",ExpressionUUID->"6d96bf63-3ffb-4e16-8c59-14c5501e7879"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"UPAsk", " ", "=", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"Dstarsg1", " ", "\[GreaterEqual]", "Dstarsg2"}], ",", "UPsg1", 
    ",", "UPsg2"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"UPNotAsk", " ", "=", " ", "UPsg3"}]}], "Input",
 CellChangeTimes->{{3.814666576533584*^9, 3.814666695525008*^9}, {
  3.814724202360216*^9, 3.8147242065589533`*^9}, {3.9068984963705463`*^9, 
  3.906898506983016*^9}},
 CellLabel->
  "In[2360]:=",ExpressionUUID->"4bb35295-c917-4019-9551-c1712f72b92b"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"1", "+", "c", "-", 
        SqrtBox[
         RowBox[{"s", " ", "t"}]]}], ">", "1"}], ",", "1", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], "]"}]}], 
     "]"}], "\[GreaterEqual]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"1", "+", "c", "-", 
        SqrtBox[
         FractionBox[
          RowBox[{"beta", " ", "s", " ", "t"}], 
          RowBox[{"beta", "-", 
           RowBox[{"k", " ", "t"}]}]]]}], ">", "1"}], ",", "1", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], "]"}]}], 
     "]"}]}], ",", "UPsg1", ",", "UPsg2"}], "]"}]], "Output",
 CellChangeTimes->{
  3.814666705672758*^9, 3.8146667755457993`*^9, 3.8147240223854523`*^9, 
   3.814724208499527*^9, 3.814724751617064*^9, 3.8148169610185213`*^9, 
   3.814817399396566*^9, {3.8148179907907047`*^9, 3.8148179970242043`*^9}, {
   3.814820299031776*^9, 3.814820317184064*^9}, 3.81482175010046*^9, 
   3.814822421979273*^9, 3.81483733304702*^9, 3.816988678253962*^9, 
   3.8592191864768553`*^9, 3.859245941117764*^9, 3.8594116510345573`*^9, 
   3.859592386989884*^9, 3.8629707505724792`*^9, 3.862971053187969*^9, 
   3.865294901820479*^9, 3.8684007264839582`*^9, 3.870021534756228*^9, 
   3.8701009428576736`*^9, 3.90656195284311*^9, 3.90687002166815*^9, 
   3.906870503616941*^9, 3.9068712871472607`*^9, 3.906871421124247*^9, 
   3.906896159512698*^9, 3.906897807308464*^9, 3.906898445346126*^9, 
   3.9068985312814217`*^9, 3.9068988094289503`*^9, 3.906899195571504*^9, 
   3.906899371211627*^9, 3.906899512390967*^9, 3.9069676061966953`*^9, 
   3.9069677219000263`*^9, 3.907656411490584*^9, 3.907660769036847*^9, 
   3.907661487763536*^9, 3.908622308056986*^9, 3.9086227473034897`*^9, 
   3.908622870492053*^9, 3.908629025815215*^9, {3.90862935995944*^9, 
   3.908629414987793*^9}, 3.908631070752275*^9, 3.945528248191062*^9, 
   3.945528419741556*^9, 3.945528895984303*^9, 3.9455293365482273`*^9, 
   3.9456860243740797`*^9, 3.945952258947613*^9, 3.945953872011492*^9, {
   3.945953930674898*^9, 3.945953972163858*^9}},
 CellLabel->
  "Out[2360]=",ExpressionUUID->"6d27c138-9d64-4930-a4d3-b6bdbfab4041"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "+", "c", "-", 
     SqrtBox[
      FractionBox[
       RowBox[{"beta", " ", "s", " ", "t"}], 
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}]]]}], ">", "1"}], ",", "1", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{
  3.814666705672758*^9, 3.8146667755457993`*^9, 3.8147240223854523`*^9, 
   3.814724208499527*^9, 3.814724751617064*^9, 3.8148169610185213`*^9, 
   3.814817399396566*^9, {3.8148179907907047`*^9, 3.8148179970242043`*^9}, {
   3.814820299031776*^9, 3.814820317184064*^9}, 3.81482175010046*^9, 
   3.814822421979273*^9, 3.81483733304702*^9, 3.816988678253962*^9, 
   3.8592191864768553`*^9, 3.859245941117764*^9, 3.8594116510345573`*^9, 
   3.859592386989884*^9, 3.8629707505724792`*^9, 3.862971053187969*^9, 
   3.865294901820479*^9, 3.8684007264839582`*^9, 3.870021534756228*^9, 
   3.8701009428576736`*^9, 3.90656195284311*^9, 3.90687002166815*^9, 
   3.906870503616941*^9, 3.9068712871472607`*^9, 3.906871421124247*^9, 
   3.906896159512698*^9, 3.906897807308464*^9, 3.906898445346126*^9, 
   3.9068985312814217`*^9, 3.9068988094289503`*^9, 3.906899195571504*^9, 
   3.906899371211627*^9, 3.906899512390967*^9, 3.9069676061966953`*^9, 
   3.9069677219000263`*^9, 3.907656411490584*^9, 3.907660769036847*^9, 
   3.907661487763536*^9, 3.908622308056986*^9, 3.9086227473034897`*^9, 
   3.908622870492053*^9, 3.908629025815215*^9, {3.90862935995944*^9, 
   3.908629414987793*^9}, 3.908631070752275*^9, 3.945528248191062*^9, 
   3.945528419741556*^9, 3.945528895984303*^9, 3.9455293365482273`*^9, 
   3.9456860243740797`*^9, 3.945952258947613*^9, 3.945953872011492*^9, {
   3.945953930674898*^9, 3.945953972165444*^9}},
 CellLabel->
  "Out[2361]=",ExpressionUUID->"03db395c-bdf1-4ee0-8e5d-7859a6e08e9e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.906898789156129*^9, 3.9068987892037497`*^9}, {
  3.906899347601646*^9, 3.9068993501464357`*^9}},
 CellLabel->
  "In[2362]:=",ExpressionUUID->"b986f9eb-aca6-40b1-875d-dd722ebcbe36"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ForceObserved", " ", "=", " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"UPAsk", "\[GreaterEqual]", "UPNotAsk"}], ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"UCsg1", " ", "\[GreaterEqual]", "UCsg2"}], ",", "fstarsg1", 
       ",", "fstarsg2"}], "]"}], ",", "fstarsg3"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DealObserved", " ", "=", " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"UPAsk", "-", "UPNotAsk"}], "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"UCsg1", " ", "-", " ", "UCsg2"}], "\[GreaterEqual]", "0"}], 
       ",", "dstarsg1", ",", "dstarsg2"}], "]"}], ",", "dstarsg3"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"ProbabilityofVictoryUSA", "=", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"UPAsk", "-", "UPNotAsk"}], "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"UCsg1", " ", "-", " ", "UCsg2"}], "\[GreaterEqual]", "0"}], 
      ",", "pstarsg1", ",", "pstarsg2"}], "]"}], ",", "pstarsg3"}], 
   "]"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.81482235317627*^9, 3.8148224124746723`*^9}, {
   3.81482253105276*^9, 3.814822542931603*^9}, {3.814822617112629*^9, 
   3.8148226737836227`*^9}, {3.814840089306715*^9, 3.8148401272067747`*^9}, 
   3.906896221327474*^9, {3.906898540651534*^9, 3.906898567642949*^9}, {
   3.906899214934959*^9, 3.906899216556836*^9}},
 CellLabel->
  "In[2363]:=",ExpressionUUID->"e5c537c9-22e9-484e-9369-aa7ee0658924"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"1", "+", "c", "-", 
           SqrtBox[
            RowBox[{"s", " ", "t"}]]}], ">", "1"}], ",", "1", ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
          "]"}]}], "]"}], "\[GreaterEqual]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"1", "+", "c", "-", 
           SqrtBox[
            FractionBox[
             RowBox[{"beta", " ", "s", " ", "t"}], 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}]]]}], ">", "1"}], ",", "1", ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], 
          "]"}]}], "]"}]}], ",", "UPsg1", ",", "UPsg2"}], "]"}], 
    "\[GreaterEqual]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"1", "+", "c", "-", 
        SqrtBox[
         FractionBox[
          RowBox[{"beta", " ", "s", " ", "t"}], 
          RowBox[{"beta", "-", 
           RowBox[{"k", " ", "t"}]}]]]}], ">", "1"}], ",", "1", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], "]"}]}], 
     "]"}]}], ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"UCsg1", "\[GreaterEqual]", "UCsg2"}], ",", "fstarsg1", ",", 
     "fstarsg2"}], "]"}], ",", "fstarsg3"}], "]"}]], "Output",
 CellChangeTimes->{
  3.8148221259967747`*^9, 3.814822431972574*^9, 3.8148225517950077`*^9, 
   3.81482268138354*^9, 3.8148373260402308`*^9, {3.814840129651968*^9, 
   3.8148401421250677`*^9}, 3.816988693486668*^9, 3.859219195568606*^9, 
   3.8592485565166283`*^9, 3.859411651393429*^9, 3.859592387307137*^9, 
   3.862970790505232*^9, 3.862971054056013*^9, 3.865294924182947*^9, 
   3.8684007387295094`*^9, 3.870021535502673*^9, 3.870100943643917*^9, 
   3.9065619673944197`*^9, 3.906870051965331*^9, 3.90687052461852*^9, 
   3.906871310186205*^9, 3.906871421898611*^9, 3.90689622237072*^9, 
   3.906897807329624*^9, 3.906898584528331*^9, 3.9068988095116673`*^9, 
   3.906899203503244*^9, 3.906899240383184*^9, 3.9068993712636547`*^9, 
   3.9068995124400997`*^9, 3.9069676100310698`*^9, 3.9069677219404383`*^9, 
   3.907656411510927*^9, 3.907660769058921*^9, 3.90766148777953*^9, 
   3.9086223080768337`*^9, 3.908622747322742*^9, 3.9086228705126057`*^9, 
   3.908629033135311*^9, {3.908629359968443*^9, 3.908629415002327*^9}, 
   3.9086310707710133`*^9, 3.945528251901906*^9, 3.945528419758045*^9, 
   3.945528895995858*^9, 3.945529336565061*^9, 3.945686024387905*^9, 
   3.945952258962605*^9, 3.945953872027843*^9, {3.9459539306916647`*^9, 
   3.945953972179645*^9}},
 CellLabel->
  "Out[2363]=",ExpressionUUID->"dc99dff6-33b6-4c56-ba50-94e6bc2872ab"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"1", "+", "c", "-", 
          SqrtBox[
           FractionBox[
            RowBox[{"beta", " ", "s", " ", "t"}], 
            RowBox[{"beta", "-", 
             RowBox[{"k", " ", "t"}]}]]]}], ">", "1"}], ",", "1", ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], 
         "]"}]}], "]"}]}], "+", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"1", "+", "c", "-", 
            SqrtBox[
             RowBox[{"s", " ", "t"}]]}], ">", "1"}], ",", "1", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
           "]"}]}], "]"}], "\[GreaterEqual]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"1", "+", "c", "-", 
            SqrtBox[
             FractionBox[
              RowBox[{"beta", " ", "s", " ", "t"}], 
              RowBox[{"beta", "-", 
               RowBox[{"k", " ", "t"}]}]]]}], ">", "1"}], ",", "1", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], 
           "]"}]}], "]"}]}], ",", "UPsg1", ",", "UPsg2"}], "]"}]}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"UCsg1", "-", "UCsg2"}], "\[GreaterEqual]", "0"}], ",", 
     "dstarsg1", ",", "dstarsg2"}], "]"}], ",", "dstarsg3"}], "]"}]], "Output",\

 CellChangeTimes->{
  3.8148221259967747`*^9, 3.814822431972574*^9, 3.8148225517950077`*^9, 
   3.81482268138354*^9, 3.8148373260402308`*^9, {3.814840129651968*^9, 
   3.8148401421250677`*^9}, 3.816988693486668*^9, 3.859219195568606*^9, 
   3.8592485565166283`*^9, 3.859411651393429*^9, 3.859592387307137*^9, 
   3.862970790505232*^9, 3.862971054056013*^9, 3.865294924182947*^9, 
   3.8684007387295094`*^9, 3.870021535502673*^9, 3.870100943643917*^9, 
   3.9065619673944197`*^9, 3.906870051965331*^9, 3.90687052461852*^9, 
   3.906871310186205*^9, 3.906871421898611*^9, 3.90689622237072*^9, 
   3.906897807329624*^9, 3.906898584528331*^9, 3.9068988095116673`*^9, 
   3.906899203503244*^9, 3.906899240383184*^9, 3.9068993712636547`*^9, 
   3.9068995124400997`*^9, 3.9069676100310698`*^9, 3.9069677219404383`*^9, 
   3.907656411510927*^9, 3.907660769058921*^9, 3.90766148777953*^9, 
   3.9086223080768337`*^9, 3.908622747322742*^9, 3.9086228705126057`*^9, 
   3.908629033135311*^9, {3.908629359968443*^9, 3.908629415002327*^9}, 
   3.9086310707710133`*^9, 3.945528251901906*^9, 3.945528419758045*^9, 
   3.945528895995858*^9, 3.945529336565061*^9, 3.945686024387905*^9, 
   3.945952258962605*^9, 3.945953872027843*^9, {3.9459539306916647`*^9, 
   3.9459539721812687`*^9}},
 CellLabel->
  "Out[2364]=",ExpressionUUID->"44d700cc-2de2-47b5-9ada-3655900995d1"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"1", "+", "c", "-", 
          SqrtBox[
           FractionBox[
            RowBox[{"beta", " ", "s", " ", "t"}], 
            RowBox[{"beta", "-", 
             RowBox[{"k", " ", "t"}]}]]]}], ">", "1"}], ",", "1", ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], 
         "]"}]}], "]"}]}], "+", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"1", "+", "c", "-", 
            SqrtBox[
             RowBox[{"s", " ", "t"}]]}], ">", "1"}], ",", "1", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
           "]"}]}], "]"}], "\[GreaterEqual]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"1", "+", "c", "-", 
            SqrtBox[
             FractionBox[
              RowBox[{"beta", " ", "s", " ", "t"}], 
              RowBox[{"beta", "-", 
               RowBox[{"k", " ", "t"}]}]]]}], ">", "1"}], ",", "1", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], 
           "]"}]}], "]"}]}], ",", "UPsg1", ",", "UPsg2"}], "]"}]}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"UCsg1", "-", "UCsg2"}], "\[GreaterEqual]", "0"}], ",", 
     "pstarsg1", ",", "pstarsg2"}], "]"}], ",", "pstarsg3"}], "]"}]], "Output",\

 CellChangeTimes->{
  3.8148221259967747`*^9, 3.814822431972574*^9, 3.8148225517950077`*^9, 
   3.81482268138354*^9, 3.8148373260402308`*^9, {3.814840129651968*^9, 
   3.8148401421250677`*^9}, 3.816988693486668*^9, 3.859219195568606*^9, 
   3.8592485565166283`*^9, 3.859411651393429*^9, 3.859592387307137*^9, 
   3.862970790505232*^9, 3.862971054056013*^9, 3.865294924182947*^9, 
   3.8684007387295094`*^9, 3.870021535502673*^9, 3.870100943643917*^9, 
   3.9065619673944197`*^9, 3.906870051965331*^9, 3.90687052461852*^9, 
   3.906871310186205*^9, 3.906871421898611*^9, 3.90689622237072*^9, 
   3.906897807329624*^9, 3.906898584528331*^9, 3.9068988095116673`*^9, 
   3.906899203503244*^9, 3.906899240383184*^9, 3.9068993712636547`*^9, 
   3.9068995124400997`*^9, 3.9069676100310698`*^9, 3.9069677219404383`*^9, 
   3.907656411510927*^9, 3.907660769058921*^9, 3.90766148777953*^9, 
   3.9086223080768337`*^9, 3.908622747322742*^9, 3.9086228705126057`*^9, 
   3.908629033135311*^9, {3.908629359968443*^9, 3.908629415002327*^9}, 
   3.9086310707710133`*^9, 3.945528251901906*^9, 3.945528419758045*^9, 
   3.945528895995858*^9, 3.945529336565061*^9, 3.945686024387905*^9, 
   3.945952258962605*^9, 3.945953872027843*^9, {3.9459539306916647`*^9, 
   3.945953972182613*^9}},
 CellLabel->
  "Out[2365]=",ExpressionUUID->"bba70fe0-a997-4e88-9218-af64fdd202c0"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8629708409694223`*^9, 3.862970859727311*^9}},
 CellLabel->
  "In[2366]:=",ExpressionUUID->"86fb387e-62e4-42ba-90f4-2fde5b4b00a5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"k", " ", "=", "0.5"}], "\[IndentingNewLine]", 
   RowBox[{"s", " ", "=", "0.15"}], "\[IndentingNewLine]", 
   RowBox[{"t", " ", "=", "0.6"}], "\[IndentingNewLine]", 
   RowBox[{"c", " ", "=", "0.2"}], "\[IndentingNewLine]", 
   RowBox[{"a", "=", "0.1"}], "\[IndentingNewLine]", 
   RowBox[{"beta", " ", "=", "1"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.8594118415791473`*^9, 3.859411895516698*^9}, {
   3.859411941077361*^9, 3.859411951597988*^9}, {3.8594120084511547`*^9, 
   3.859412127363317*^9}, {3.85941220718167*^9, 3.859412297142149*^9}, {
   3.859412430125039*^9, 3.859412441764864*^9}, {3.859412723907796*^9, 
   3.859412781940625*^9}, {3.8594135686399717`*^9, 3.859413606422127*^9}, {
   3.8594145461769876`*^9, 3.8594145542229958`*^9}, {3.85941461923638*^9, 
   3.859414627788073*^9}, {3.859414752959908*^9, 3.859414772923378*^9}, {
   3.859414818654361*^9, 3.859414850349722*^9}, {3.859414938028179*^9, 
   3.8594149712474318`*^9}, {3.859415010244708*^9, 3.8594150370436497`*^9}, {
   3.859415170089344*^9, 3.859415202134385*^9}, {3.859415262845633*^9, 
   3.859415276976969*^9}, {3.8594619009918737`*^9, 3.859462026306881*^9}, {
   3.859462120240913*^9, 3.8594621238842487`*^9}, 3.85946220003364*^9, {
   3.8594622384185038`*^9, 3.859462316227396*^9}, {3.859489655265724*^9, 
   3.859489658828355*^9}, 3.859489695409004*^9, {3.859489727596488*^9, 
   3.8594897283573313`*^9}, {3.8594897618840733`*^9, 
   3.8594897727223167`*^9}, {3.8594898631422462`*^9, 3.859489863576161*^9}, {
   3.85948996411228*^9, 3.859489965141859*^9}, {3.859490088176981*^9, 
   3.859490148725127*^9}, {3.859490186630705*^9, 3.859490192540175*^9}, {
   3.859495038341364*^9, 3.859495093995146*^9}, {3.859495129582655*^9, 
   3.859495152739105*^9}, {3.8594952078128853`*^9, 3.8594952087238894`*^9}, {
   3.859495307329502*^9, 3.859495340386655*^9}, {3.8594954338803673`*^9, 
   3.859495436588221*^9}, 3.859495501062241*^9, {3.859495544815524*^9, 
   3.859495598958335*^9}, {3.8594956484590178`*^9, 3.8594956921701927`*^9}, {
   3.859495729543593*^9, 3.859495775448436*^9}, {3.859495832273678*^9, 
   3.8594958535071173`*^9}, {3.859495963663782*^9, 3.8594959677799063`*^9}, {
   3.859496001665744*^9, 3.8594960018978357`*^9}, {3.859496065383718*^9, 
   3.859496091978524*^9}, {3.859496354258861*^9, 3.859496359505518*^9}, {
   3.859496419711341*^9, 3.8594964524227333`*^9}, {3.859550057447357*^9, 
   3.8595500663446836`*^9}, {3.859550122992373*^9, 3.859550123746584*^9}, {
   3.859568430781149*^9, 3.859568515522232*^9}, {3.8595686900174294`*^9, 
   3.859568735932879*^9}, {3.8595688272023897`*^9, 3.8595688328763657`*^9}, {
   3.859592732878175*^9, 3.8595927857389708`*^9}, 3.859592829273624*^9, {
   3.8595928935102243`*^9, 3.859592894274852*^9}, {3.90689627811642*^9, 
   3.906896281595955*^9}, {3.906897846220783*^9, 3.9068978628822536`*^9}, {
   3.906898713516613*^9, 3.906898742683494*^9}, 3.9068992618151627`*^9, {
   3.908629376314825*^9, 3.9086293771980047`*^9}, {3.94552914344177*^9, 
   3.945529145302109*^9}},
 CellLabel->
  "In[2367]:=",ExpressionUUID->"6081c5fe-8e0a-4dce-9bb2-b09509a02e88"],

Cell[BoxData["0.5`"], "Output",
 CellChangeTimes->{
  3.859592387518169*^9, {3.8595927731331463`*^9, 3.85959278747195*^9}, 
   3.85959283018478*^9, 3.859592895282898*^9, 3.8629711332891293`*^9, 
   3.865294966851927*^9, 3.868400738829294*^9, 3.8700215356036386`*^9, 
   3.870093635387206*^9, 3.870100943827085*^9, 3.906561977443364*^9, 
   3.9068700664826937`*^9, 3.906870535999659*^9, 3.906871320780446*^9, 
   3.906871422062978*^9, 3.906896254679531*^9, 3.906897818709556*^9, {
   3.906897856372983*^9, 3.906897873768355*^9}, 3.906898715180861*^9, 
   3.906898752800024*^9, {3.906899251480919*^9, 3.9068992811900673`*^9}, 
   3.906899395464822*^9, 3.906967619428034*^9, 3.90696772208429*^9, 
   3.907656411566873*^9, 3.907660769115266*^9, 3.907661487841075*^9, 
   3.908622308139841*^9, 3.9086227474052353`*^9, 3.9086228705911713`*^9, 
   3.9086291382871037`*^9, {3.908629360042556*^9, 3.908629415076118*^9}, 
   3.908631070866024*^9, 3.9455282755261593`*^9, 3.945528384681568*^9, 
   3.945528419773056*^9, 3.945528896005972*^9, 3.9455293365854197`*^9, 
   3.945686024399007*^9, 3.945952258979477*^9, 3.945953872041931*^9, {
   3.9459539307087708`*^9, 3.9459539721944237`*^9}},
 CellLabel->
  "Out[2367]=",ExpressionUUID->"0f6cc8d2-da15-4efe-b26c-2d40fe2e2f94"],

Cell[BoxData["0.15`"], "Output",
 CellChangeTimes->{
  3.859592387518169*^9, {3.8595927731331463`*^9, 3.85959278747195*^9}, 
   3.85959283018478*^9, 3.859592895282898*^9, 3.8629711332891293`*^9, 
   3.865294966851927*^9, 3.868400738829294*^9, 3.8700215356036386`*^9, 
   3.870093635387206*^9, 3.870100943827085*^9, 3.906561977443364*^9, 
   3.9068700664826937`*^9, 3.906870535999659*^9, 3.906871320780446*^9, 
   3.906871422062978*^9, 3.906896254679531*^9, 3.906897818709556*^9, {
   3.906897856372983*^9, 3.906897873768355*^9}, 3.906898715180861*^9, 
   3.906898752800024*^9, {3.906899251480919*^9, 3.9068992811900673`*^9}, 
   3.906899395464822*^9, 3.906967619428034*^9, 3.90696772208429*^9, 
   3.907656411566873*^9, 3.907660769115266*^9, 3.907661487841075*^9, 
   3.908622308139841*^9, 3.9086227474052353`*^9, 3.9086228705911713`*^9, 
   3.9086291382871037`*^9, {3.908629360042556*^9, 3.908629415076118*^9}, 
   3.908631070866024*^9, 3.9455282755261593`*^9, 3.945528384681568*^9, 
   3.945528419773056*^9, 3.945528896005972*^9, 3.9455293365854197`*^9, 
   3.945686024399007*^9, 3.945952258979477*^9, 3.945953872041931*^9, {
   3.9459539307087708`*^9, 3.9459539721958857`*^9}},
 CellLabel->
  "Out[2368]=",ExpressionUUID->"688c3ba8-cd07-47ec-8a4a-8eeec5134f86"],

Cell[BoxData["0.6`"], "Output",
 CellChangeTimes->{
  3.859592387518169*^9, {3.8595927731331463`*^9, 3.85959278747195*^9}, 
   3.85959283018478*^9, 3.859592895282898*^9, 3.8629711332891293`*^9, 
   3.865294966851927*^9, 3.868400738829294*^9, 3.8700215356036386`*^9, 
   3.870093635387206*^9, 3.870100943827085*^9, 3.906561977443364*^9, 
   3.9068700664826937`*^9, 3.906870535999659*^9, 3.906871320780446*^9, 
   3.906871422062978*^9, 3.906896254679531*^9, 3.906897818709556*^9, {
   3.906897856372983*^9, 3.906897873768355*^9}, 3.906898715180861*^9, 
   3.906898752800024*^9, {3.906899251480919*^9, 3.9068992811900673`*^9}, 
   3.906899395464822*^9, 3.906967619428034*^9, 3.90696772208429*^9, 
   3.907656411566873*^9, 3.907660769115266*^9, 3.907661487841075*^9, 
   3.908622308139841*^9, 3.9086227474052353`*^9, 3.9086228705911713`*^9, 
   3.9086291382871037`*^9, {3.908629360042556*^9, 3.908629415076118*^9}, 
   3.908631070866024*^9, 3.9455282755261593`*^9, 3.945528384681568*^9, 
   3.945528419773056*^9, 3.945528896005972*^9, 3.9455293365854197`*^9, 
   3.945686024399007*^9, 3.945952258979477*^9, 3.945953872041931*^9, {
   3.9459539307087708`*^9, 3.9459539721971273`*^9}},
 CellLabel->
  "Out[2369]=",ExpressionUUID->"ac0eea45-5255-4ed7-b263-f1ec94079503"],

Cell[BoxData["0.2`"], "Output",
 CellChangeTimes->{
  3.859592387518169*^9, {3.8595927731331463`*^9, 3.85959278747195*^9}, 
   3.85959283018478*^9, 3.859592895282898*^9, 3.8629711332891293`*^9, 
   3.865294966851927*^9, 3.868400738829294*^9, 3.8700215356036386`*^9, 
   3.870093635387206*^9, 3.870100943827085*^9, 3.906561977443364*^9, 
   3.9068700664826937`*^9, 3.906870535999659*^9, 3.906871320780446*^9, 
   3.906871422062978*^9, 3.906896254679531*^9, 3.906897818709556*^9, {
   3.906897856372983*^9, 3.906897873768355*^9}, 3.906898715180861*^9, 
   3.906898752800024*^9, {3.906899251480919*^9, 3.9068992811900673`*^9}, 
   3.906899395464822*^9, 3.906967619428034*^9, 3.90696772208429*^9, 
   3.907656411566873*^9, 3.907660769115266*^9, 3.907661487841075*^9, 
   3.908622308139841*^9, 3.9086227474052353`*^9, 3.9086228705911713`*^9, 
   3.9086291382871037`*^9, {3.908629360042556*^9, 3.908629415076118*^9}, 
   3.908631070866024*^9, 3.9455282755261593`*^9, 3.945528384681568*^9, 
   3.945528419773056*^9, 3.945528896005972*^9, 3.9455293365854197`*^9, 
   3.945686024399007*^9, 3.945952258979477*^9, 3.945953872041931*^9, {
   3.9459539307087708`*^9, 3.945953972198332*^9}},
 CellLabel->
  "Out[2370]=",ExpressionUUID->"74eb12fc-da7b-484b-a3aa-593386123dac"],

Cell[BoxData["0.1`"], "Output",
 CellChangeTimes->{
  3.859592387518169*^9, {3.8595927731331463`*^9, 3.85959278747195*^9}, 
   3.85959283018478*^9, 3.859592895282898*^9, 3.8629711332891293`*^9, 
   3.865294966851927*^9, 3.868400738829294*^9, 3.8700215356036386`*^9, 
   3.870093635387206*^9, 3.870100943827085*^9, 3.906561977443364*^9, 
   3.9068700664826937`*^9, 3.906870535999659*^9, 3.906871320780446*^9, 
   3.906871422062978*^9, 3.906896254679531*^9, 3.906897818709556*^9, {
   3.906897856372983*^9, 3.906897873768355*^9}, 3.906898715180861*^9, 
   3.906898752800024*^9, {3.906899251480919*^9, 3.9068992811900673`*^9}, 
   3.906899395464822*^9, 3.906967619428034*^9, 3.90696772208429*^9, 
   3.907656411566873*^9, 3.907660769115266*^9, 3.907661487841075*^9, 
   3.908622308139841*^9, 3.9086227474052353`*^9, 3.9086228705911713`*^9, 
   3.9086291382871037`*^9, {3.908629360042556*^9, 3.908629415076118*^9}, 
   3.908631070866024*^9, 3.9455282755261593`*^9, 3.945528384681568*^9, 
   3.945528419773056*^9, 3.945528896005972*^9, 3.9455293365854197`*^9, 
   3.945686024399007*^9, 3.945952258979477*^9, 3.945953872041931*^9, {
   3.9459539307087708`*^9, 3.945953972199623*^9}},
 CellLabel->
  "Out[2371]=",ExpressionUUID->"888d8229-d97b-4ce2-abaa-39389f32f455"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.859592387518169*^9, {3.8595927731331463`*^9, 3.85959278747195*^9}, 
   3.85959283018478*^9, 3.859592895282898*^9, 3.8629711332891293`*^9, 
   3.865294966851927*^9, 3.868400738829294*^9, 3.8700215356036386`*^9, 
   3.870093635387206*^9, 3.870100943827085*^9, 3.906561977443364*^9, 
   3.9068700664826937`*^9, 3.906870535999659*^9, 3.906871320780446*^9, 
   3.906871422062978*^9, 3.906896254679531*^9, 3.906897818709556*^9, {
   3.906897856372983*^9, 3.906897873768355*^9}, 3.906898715180861*^9, 
   3.906898752800024*^9, {3.906899251480919*^9, 3.9068992811900673`*^9}, 
   3.906899395464822*^9, 3.906967619428034*^9, 3.90696772208429*^9, 
   3.907656411566873*^9, 3.907660769115266*^9, 3.907661487841075*^9, 
   3.908622308139841*^9, 3.9086227474052353`*^9, 3.9086228705911713`*^9, 
   3.9086291382871037`*^9, {3.908629360042556*^9, 3.908629415076118*^9}, 
   3.908631070866024*^9, 3.9455282755261593`*^9, 3.945528384681568*^9, 
   3.945528419773056*^9, 3.945528896005972*^9, 3.9455293365854197`*^9, 
   3.945686024399007*^9, 3.945952258979477*^9, 3.945953872041931*^9, {
   3.9459539307087708`*^9, 3.945953972201125*^9}},
 CellLabel->
  "Out[2372]=",ExpressionUUID->"7320c613-94b7-4320-86a5-c820ce29bc99"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  " ", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"fstarsg3", ",", 
       RowBox[{"ConditionalExpression", "[", 
        RowBox[{
         RowBox[{"ForceObserved", "+", ".01"}], ",", 
         RowBox[{"0", "\[LessEqual]", "t", "<", "0.8"}]}], "]"}], ",", 
       "fstarsg1", ",", 
       RowBox[{"ConditionalExpression", "[", 
        RowBox[{
         RowBox[{"ForceObserved", "+", ".01"}], ",", 
         RowBox[{"0.8", "  ", "<", "t"}]}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"PlotStyle", " ", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Opacity", "[", 
         RowBox[{"0.4", ",", 
          RowBox[{"ColorData", "[", 
           RowBox[{"97", ",", "1"}], "]"}]}], "]"}], ",", 
        RowBox[{"Opacity", "[", 
         RowBox[{"1", ",", 
          RowBox[{"ColorData", "[", 
           RowBox[{"97", ",", "1"}], "]"}]}], "]"}], ",", 
        RowBox[{"Opacity", "[", 
         RowBox[{"0.4", ",", 
          RowBox[{"ColorData", "[", 
           RowBox[{"97", ",", "2"}], "]"}]}], "]"}], ",", 
        RowBox[{"Opacity", "[", 
         RowBox[{"1", ",", 
          RowBox[{"ColorData", "[", 
           RowBox[{"97", ",", "2"}], "]"}]}], "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1.53"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1.8"}], "}"}]}], "}"}]}], ",", " ", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
       "\"\<Force as a Function \\n of Adversary Power\>\"", ",", "11"}], 
       "]"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<Adversary Power \\n \
(\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\
\"Italic\"]\)\>\"", ",", "11"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<\\n Force \\n (\!\(\*StyleBox[\"f\",FontSlant->\"Italic\"]\))\>\
\"", ",", "11"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontSize", "\[Rule]", "10"}], ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"ExclusionsStyle", "\[Rule]", 
      RowBox[{"{", "Dotted", "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*StyleBox[\"Unilateral\",FontWeight->\"Bold\"]\)\>\"", ",", 
        "\"\<\!\(\*StyleBox[\"Unilateral\",FontWeight->\"Bold\"]\) (observed)\
\>\"", ",", 
        "\"\<\!\(\*StyleBox[\"With\",FontWeight->\"Bold\"]\)\!\(\*StyleBox[\" \
\",FontWeight->\"Bold\"]\)\!\(\*StyleBox[\"AUMF\",FontWeight->\"Bold\"]\)\>\"\
", ",", "\"\<\!\(\*StyleBox[\"With\",FontWeight->\"Bold\"]\)\!\(\*StyleBox[\" \
\",FontWeight->\"Bold\"]\)\!\(\*StyleBox[\"AUMF\",FontWeight->\"Bold\"]\) \
(observed)\>\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Figure6", "=", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"fstarsg3", ",", "fstarsg1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1.53"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1.8"}], "}"}]}], "}"}]}], ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotLabel", "\[Rule]", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<Force as a Function \\n of Adversary Power\>\"", ",", "14"}], 
        "]"}]}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<Adversary Power \\n \
(\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\
\"Italic\"]\)\>\"", ",", "14"}], "]"}], ",", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<\\n Force \\n \
(\!\(\*StyleBox[\"f\",FontSlant->\"Italic\"]\))\>\"", ",", "14"}], "]"}]}], 
        "}"}]}], ",", 
      RowBox[{"LabelStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FontSize", "\[Rule]", "10"}], ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Black"}], 
        "}"}]}], ",", 
      RowBox[{"ExclusionsStyle", "\[Rule]", 
       RowBox[{"{", "Dotted", "}"}]}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Unilateral\>\"", ",", "\"\<With AUMF\>\"", ",", 
         "\"\<Observed\>\""}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{"FilePath", ",", "Figure6", ",", "\"\<PDF\>\""}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.859568844634779*^9, 3.8595689181977367`*^9}, {
   3.859568956098233*^9, 3.859568977280017*^9}, {3.859569010364102*^9, 
   3.8595690128355093`*^9}, {3.8595690993512983`*^9, 3.859569114719541*^9}, {
   3.859569156825845*^9, 3.859569230836626*^9}, {3.8595692824308*^9, 
   3.859569312991811*^9}, {3.868400915270547*^9, 3.8684009158304577`*^9}, {
   3.868401073808033*^9, 3.868401088725918*^9}, {3.868401142798789*^9, 
   3.8684011514139*^9}, {3.868401239513526*^9, 3.8684012428805237`*^9}, {
   3.868401694260235*^9, 3.868401695580203*^9}, 3.868892959034547*^9, {
   3.86889310576711*^9, 3.868893129763008*^9}, 3.870021552158317*^9, {
   3.8700215898165903`*^9, 3.870021592345735*^9}, {3.8700905107529287`*^9, 
   3.870090516123266*^9}, {3.870090550520524*^9, 3.870090643073308*^9}, 
   3.870091052281374*^9, {3.870091137850659*^9, 3.870091142359647*^9}, {
   3.870093510342473*^9, 3.8700935960815277`*^9}, {3.870093951982253*^9, 
   3.870093987583571*^9}, {3.870094076421486*^9, 3.870094080626978*^9}, 
   3.870094112935978*^9, {3.870094187383665*^9, 3.870094225440536*^9}, {
   3.870094256930867*^9, 3.870094288005629*^9}, {3.870094451441279*^9, 
   3.870094542190029*^9}, {3.870094580722989*^9, 3.870094598911598*^9}, {
   3.870095999702408*^9, 3.8700960618397627`*^9}, {3.8700961199366627`*^9, 
   3.870096171551227*^9}, {3.870096259580697*^9, 3.8700962602537613`*^9}, {
   3.870096309668365*^9, 3.870096341645238*^9}, {3.870096486838708*^9, 
   3.870096499999125*^9}, {3.870096565734182*^9, 3.870096568731303*^9}, {
   3.8700967119697866`*^9, 3.870096724345655*^9}, {3.870096827690671*^9, 
   3.870096837233267*^9}, 3.906967698264503*^9, {3.907661442756317*^9, 
   3.907661443613371*^9}, {3.907661478697846*^9, 3.907661479446727*^9}, {
   3.9086222902971478`*^9, 3.908622298396367*^9}, {3.90862242462031*^9, 
   3.908622427035219*^9}, {3.908622722937017*^9, 3.908622734038062*^9}, {
   3.9086227821820602`*^9, 3.908622800634766*^9}, {3.908622844785995*^9, 
   3.9086228616300592`*^9}, 3.908629180586376*^9, {3.945953914744832*^9, 
   3.9459539679616003`*^9}},
 CellLabel->
  "In[2373]:=",ExpressionUUID->"a86bc087-abc0-48b5-a597-06c8965da632"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          AbsoluteThickness[1.6], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          Opacity[0.4]], 
         LineBox[CompressedData["
1:eJwVxXs8EwgAB/AljnI9Pi7cdcpFt6xa5LS6HL9iauRKoQc+ZbXkdDXnymPR
Cq2akbceE9I1nZDGoe2Tx3RrbSp12kwxbDVbk+Mqpbi7P76f76K9zG37zQgE
gv9//n980+HiIGasd725DevuMBUcxhKXh8TNKOoqLmY+FKJjWBuTSdyNHR5L
Qyd6Rai07Snt5kehjN4/o2SqBSNCX97PxMOolSxISTgnwXzSU9GUMg6hzleb
/TruwiuRu1LGj4dqc8h42yMpIqXeglw6CyNzp7dZVsiQajfmEEE8DtSu1fhG
yPH4VrAs980JNAnj0T2mAENNTn+nTMUuX4Pi0K8PwCENvG/hc5CTyrIzXnoE
+63ium/ZZ3Dk5Kf70nWdqEgsZHLpXBw53Rfa1NsJuTRAF0zMgm63yrLc6gmq
E2yCIsyzQZrBFzQVPEFCBrsq6002tnw4m0xe+BeshLuix5S52E7zaCx36sJS
s9m9Yn4honnWyY3TlBi1Peb5OrMIVVHRR23ilBCR9OcXsc9jnE4pftinRODW
tmAO/SJ2j2x2s6xTgVkaL9tCvAyOwKJT5qPGmrpBYqp9CTTNjI2NZWoQGC4+
Yeal+LhjaJdxUg1ZQkEJ700pikPSWDF1PQgrYYb9rbyCaR/lqoJZz5E87Pzo
Nv8a/vHcGKpN60Nkonoy2FaAnbSM4K6OPlDNcsimTAHC7Z76HrDWYJbdJNeR
XYGs07FzJ7ZpcNlL5ZdO/x2P07gdL59p0MrjiX4kVuPA9+ogz95+3DF0K6yv
V2Ns++Ke/VP9ENOW9MqW1WCT43NXt28GEG5GJ5R/eRMjZ676VEUOIPTOhJPj
wlokWvceT3s+gADKymh7khB7srRVlHuDoOmUsfExQnS+ZeZQtYPYmH88qatS
iMox8sLZBC2oo3Ju3oo6REnk67spWnhXR1XN8aiHhTvnVWyZFt8R+aOWaMDL
C+9peQd1cO/ymYg60YCESn+NJk0Ht/Sh6X+2NuD9s/yTHy7psGKAYptObUTX
IM26QK6Dy+XO1YSAJgTCYm2yyws42FmmjIeIoBex1ZXdL2DxWZzlUEwz5m6Z
KcpZoIfenz1nTNCMOJrXzh2uetzP5Nl/0jZjfiHVa2qdHlLuk7wzri3YY5f9
9bt9emTYDJfzr7fAze1W6rkKPeY5Obe3F7diNMIjqWz5EIjrM81tORIwGPan
zJwMsB/Ms7p4VQLaB8WBPDcDrE5d/NxRIsGhVb/5zYYBhnuCeSRCO66we260
hRtQE9S22IvVjgsvvOcvyzdgTeQ76v7Dd5EoPj/gOM0Ifzb9VP12KQJral0F
CiPcz7VuKDsiRXXgVNFZlREOJYusMnOlSEm6Rg/XGjFyp5/LeCBFXH0ot2PC
iMJJevYXG+5hOfno6tekV9Cm7L30yyoZPFdWOiPtFU4k76slz5Oj9OD9maKl
JsTwJHFfuctBOZhbf9vDhBC+s4dFkBz1PxSJb3ibsEQ8+MezDDluUmatiN5m
woOJfeKM6QoEGsm3vZNMcDjGkA6NKvC6zK+G1W7CMCuM99a9AzY/NRy1UZnw
L4vrQ18=
          "]], 
         LineBox[{{0.2300310350547647, 0.934940771501318}, {
          0.23433748499399742`, 0.9400572713446069}}], 
         LineBox[CompressedData["
1:eJwV1ns8lNkfB3ClRLSbkl+j5LJKJcplI8lHUSqyZWtINaSIRS6FkiKVW7ls
EiEZW0pFsZGlpaRNUq7DuM4zM27ZNM8TSbn9zv7xvJ7X+3XOH+f2/Zyj4epr
7zZTSkrqEfn++9ufjD/9t3oDAt16Es4aS2D/SVHhUHgDDI0i1r86KkFNvVJM
SmIDJostNtt6S1CarHJBoaABG6tL6ozPSJCmtiJ4lGnAgYCPWyJTJXAy3ORc
c6IRvjkri+QbJGhz8lobENyEBvsCdxlVGrEia++UyCZk0oKQITUapr9p5T5L
bsIAt3plvSaNjNNdmnOeNCHNPMQ1eiUNl9RflDPoJtQJwp5XGdLo5xlOvvJs
htnNjzl+O2h82T1RwzrIg128CveRP40cPn8OvHhYbL0kSPEkDbZLkdXREB66
3ZMO+gbRKPE9Xp6fysOLk2u81M7QCI2nCix5PLANEwd3X6QhXVuV6mPXgtd1
2mYTyTQUrePcX1i0okgq5mhMMQ2r3GfQ2dOKFK6xTUYJjVPyHxcnH27F4VdP
Zj0opUHV7XzrEdEKF+/yybJyGo8dZdfNr2rFz+5m7g//obH7twvfONZ8mB7b
I3nDo3GxtrCx2oGPbTPkE9Nbyfj0RA8MPPhwUIgy9myjoT5swZGJ4WPHn9J3
xzpp0GemKvNq+KioTj84IKaRGHf6ysSuNqhEbC6ex9Coktxzc+e04Xm5UJv7
mcbYHr55/fE2lGqOvV83QtZT2Zj5I6ENasviq62+0lh3a2SfTUMbmjOTijBJ
o/6xr1ra3nYkPHKtuSDLYNbCW2PSbu0odlLldcgxMAl83+AT2I4HLwKwTp5B
1gbdi5uvt+P0ZK/Z+3kM/CoHBwZa21HC61QTLGAwv9mt0PhAB8pLZ3DZSxlY
DG0e3OvVgZil4iQ/VdJfZplmwJkOyA3dXxO1jEGDScvvD9M7YL3krON9dQZX
b27z1+jswOLUI83VWgwWHdNeJ3+oE/tzytd4rGGwLVzaY6VPJzLF9qd26TII
uiG4tfVsJ7z/zI5dq8eg5W3Kj+E3OxG6YIv84FoGqetkJSNdncjNCS00MWSg
8n0gr5vThR+ET2G+gcHOha96x493waTNpoMmDlnDVWWFkfaLiQeyTBl0cPbH
/XqrC4IHtoqjGxlkvHzjXS3oQlnIQESoOYPazju3eyVd0N7oHagMBhNfznfO
lOqGjSXXKY/40EpT203q3TAbpqUbLRgsi7uvU+jSjVhjzoyvWxjY5UQeqfPr
xvaUJyWnLBmcq3BN/xjejaCLmn5fiQWMirw2l/Q3qu3914qsP/vyYLqwGwt3
XWYVbGNQ73tM8y+mG0rRoikVawYzYiydWmYIkF2wnDlP7Fo2/ma+pgBano9n
Wm9n8JO6d+4lVwG0/bRm5+9gcKVbgxvnL4BYcENunHg0ozU1OVwAJdbDqK07
GVSzLKPvZAoQHHHxSyOxPn8sLC9PAMX7Rf2LbBikXc8PLnomQGP8fkc2sfdC
lWOv2gUIaSz/q46Y11DHefdBgD4lwUNZWwbmiZfYvDEB9Ki1P4E4OnIsO0Ce
wp5r8zNvE//t1pQ5uoCCQurw7Sbiz1b5aSEqFL5y8gyldjE4IH30asQqCqVX
Ng7tIU4UmcfL6FO4F++gEkxc9YIVG2tCwTG+rekG8beskUs/WFBQbhKqlBLr
hdedv2pNwRAJdCuxq/P9s8q/UFC3n943TJxiful0GpvC9dV2tgp2ZH9VXQKX
cSgURF9v1iSWmjT1z3aj8L2OkawnNupc5LPCh0KM3Klb24k9y2iP+yfJ+PvQ
40Ccmfb2qF4ohfoKTsVR4sbTOS6FFyi8zhjQ9yWes//8wfWXKcSvo82Cic1M
DjqWXqXg0h0pDCX2+5/xXvM0Cmplz9TDie+MKu6u5FIwTcga/8/tvI8223Ip
3OHjRBjxD0WvrWseU6ipzYk+Q2x5LdvSroSCtxNlFkh86sRZNFZQSNAZTfQm
fmjvuJH9moLTXfrSYWKhvqFx+3sKI8MtS/cSKyv+YMhpoeA8ls+2It5JD+iJ
uijs5pw1MiA+V/dytXsvhcmkrU9Vif/Mz1wx+JHC53dylAzxQNxpzeMjFNpk
3z4aIuu71Gfvss/jFCzkY7QbiXfbrlUJkhbC9diW7U+IL+nMVf4+V4ie0JEF
14g/faiYN1NFCG0Xg/u2xJpv0uQiNYQQTheeWk7scC9w9txVQjhKKX8ZJ+fl
ubvOpKKJECeGnMe5xF+2ynxLhhDNBwyi/IlXLxeOsKyFeKtfXmVOnCS+/lGD
LcTcqFrHRnJeqyv9B+4cIu3e+gWpxBNc255VbkJYxipVHCR2d5nZqX9SiC2S
edNdpB5Munzebr4qxKdd6atekfrJXxWwyCNNCEl19D8BxFpBQc7x2ULYK8SU
qhLP/zFsuL1QiO79vz70IvX4wSJxyckmIR4nPW3pJ/XsEnfNLa1DiGCDTzbh
xC1tqY+ei4UYoYw0lIkrA7iW80aE0JFl0xu2kvq7XeiVoyTCha/2cCV5MZ8p
LqpdKoKXb1hTL8mXyE1l05+1RNhh51zvThzQ8jIJP4twbqm/7OHNDGxkeWX8
fSJsf8xKWP9ffnl9lZdPEeEGT7XTneRfQMn4Pv1bIug1soNfkHwcmCWV5XBX
BPupy5dZxM03ZY1uPxUhc6xes9KYQV4d6+Amvgims2u1vxgx4BiaPfRliaEl
3eAsJvncHGYxmqwhhtuB7ZOLiHfWWlk8WyXGL1Y1mttInhu77WqWNRWTcxYt
d0uHzCeFM8F1EuOOB8MxXMngxfdw2+Z0MbY4Nw/1kfuimRUw6vuHGBOrQ1/P
JO4zOZIl/0CMB4rBkUvVGCgEbx3ZUipGfo7q0x3k/mEPy2UU8MUQR8iMxrIY
DP579d/4RT2I3xt5LleRgVLX7dgdCT1Y3Trn5wNSDFZMJBv1Xu/BVOAf40bT
NDYsieoOz+yB+gxhmcIUDc5+T4OSvB5ET6frFI/TyOXptq+o7YE9z5VPj9Iw
f1+8apZcLyKcEvpnD9HwqKiuLo/ohZvB1r8Lyf3/bcN8TaPYXpybU9v9awt5
Lz1xOJP7ey8Go+TUhptpPMjt072W1Yu0+KRJnUYan5JmJXmW90J3v4FFVC2N
kx4Wh5S+98KAtrXqeU4jXLGE8fTvg8pRqYCN98h75sr0TsGpPnCW69pxc2hk
y1jf3hveh/fhHg6z79B4Oc5jI6EP7hZPPr/m0pDpGy5TyuvDlcjljsbpNK6U
ro2sGOjDiyKFDRVxNG4cuauyyKUf29jePwaR95e3zeLKNR79cHjXExLiS+Zr
GONp5dcPrac2daE+NEQzvUpOhPfj3Iy/jM540liTrcduzOpH9OCzKc5hGuVU
0e8Jwn70abR+rtxNQ3yoSnbukQH0WJ91nNaloesoHJ1y+4C2MCe351USZCzA
1GWfD5gwWljMei7B3HcZs1mBH8Dnecb7lkmwsFxsZBP8Act3ZacvLJXg/xOn
m8Y=
          "]], 
         LineBox[{{0.7977254937950801, 0.9902762065579106}, {
          0.8010745976292708, 0.9881791427996298}, {0.8084485172075546, 
          0.9834852887127565}, {0.8231963563641223, 0.9737830273026997}, {
          0.8526920346772575, 0.9531322123564652}, {0.9166365565752115, 
          0.9027502781398637}, {0.979411794765257, 0.8459430801428269}, {
          1.0379565247575981`, 0.7864696884469133}, {1.1014544200216227`, 
          0.7148669544952659}, {1.1607218070879428`, 0.6412849453285459}, {
          1.2249423594259463`, 0.5540095182592335}, {1.2879936280560413`, 
          0.4603957929055462}, {1.346814388488432, 0.3656105781766721}, {
          1.410588314192506, 0.25416115269288286`}, {1.4701317316988756`, 
          0.141261200776851}, {1.5285058654973367`, 0.02142053074960626}, {
          1.5380860146401454`, 0.}}], 
         LineBox[{{0.23625075030011988`, 0.9422894252035554}, {
          0.2427539608634361, 0.9496923149522161}, {0.24473497527024407`, 
          0.9518918705202626}, {0.24869700408386003`, 0.956214899096109}, {
          0.25662106171109195`, 0.9645638193347112}, {0.26571003401360527`, 
          0.9736691732936918}}]}, 
        Annotation[#, "Charting`Private`Tag$336873#1"]& ], 
       TagBox[{
         Directive[
          AbsoluteThickness[1.6], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          Opacity[1]], 
         LineBox[CompressedData["
1:eJwVxX80EwgAB/AdOu7qzntluBJpNdFLSJKuvkfSL5VZV3dOnWXoec4i1w+y
OaflZsuaU56bWRF1HU4jdZwf2zIzP/rFQvXE7La1rVjKj+N+/PF5H/djjMg4
KwKBsPs//z+1N7kkgnFiW7v/gdJu5Xmw6R5resn7QS4qaFcdvYNusyaRRz4K
7Ts35uHkZtwiDokHhPHQh0S77tspxRvJdm4SORnT5UWXVqvlWOrZ3/iPOhUl
Nm5PLA4KbD3D8VUKT2GFT++iFGclYhTbKgW0dAROZPbXv+5EtqPFJZrMxAVB
/dvxsi48uk1VCiaz8EHhOPXClh7QB9flvFdn4+qquJfLGnvB9hyZbhWysdHS
sEKKh3CiNNWtZuXCeSKoT6R5iBtnLjM4NA6cp1xi+NmPoFLsGaOSL+KnXuLi
9N8eo/r04ohoGz66zw7U8jc/wek8VtXFST4siQq2jfQJ7CRfH7eoBZi5myJN
b++Dl9WnL5qEl7Fobhc7/7oaE8SMLa95V0BRX2fpiU/R6KkrcmcVQfjoZGXF
j08RTpFS2bRiWNG4QS8OD4AhPqU8QBbBy3n7kFg7iMC6UXK2UylyfK5R8ncM
gUBfExJlI4a4g0yXXhuC8nRhKXdSjOD7rTnBXz1DVCkjalx9DdeTPhpNqn2O
c2bSgz+EFQg/JK15vmQYMWcG56nESjCjNd79gcMItbq0zsSrRFXP247II8P4
xHGe48a6gWHkF2rLhyHa+nRHDu1XrPr8ZuRj75do43Ib95GrcW98qo/sM4Jm
w0DXwpvV2GG/PYZCGUHTLo8XyrU1KFHP1i1LHcE3VjRCmfPvCAmWKYpuj+DL
5tmVbq616JT9bc1YP4o9Ab7HnTwlqA2z3rByqQa7xtQnTiVKQKq56OgToMHO
n5ln+25JMHcrvGyaokHohIpT4F2HuxmGdnmuBtuq46vs/etx2FCeEm3RYANZ
OGGLBmyOdO5h/jkGv76Q2fisBihjj8d19Y3BJ0dv3d7WgL2Fkg+1pjF4jwQQ
c0LvwkOYwM9arsUa0cNNhD33IHpPaklI18LF0TZz6mAjgtJE315Z+xcWfJhq
q09swTFbzy8yGTrodrPsLZUtkBOin4f8oEMnj+s0p2lB0v5YqUGgg4LzuCB3
fStqe6rFI/U65C02lwlvtiJb98A2Y0YHh5UkubykDaFE6jyXqQc5mGdDZMtw
xyXgY/NJA5xGC+yKy2Uovv3KyMw2wO588SI3mQwtJlnnNN8AQ0elgydBjreb
ZnyrqwyoiZCu2pouxyvRkVJHrQGBMe9D45LvozOtIWEh9RV2s2jn6w8pIEp4
UCdwNcIvvy3sapoChAWuy7/3MsKl1N2OJ1Cg1/e+NizAiDfNLzn0HgXk36XZ
39tnxOV5Gn9JWAeYYwVNgxlGaDKP/ZKyUQmeXnnDq8+IrHOxtescVJgg6fMr
zpmQyJWlfuanQi6pNqiCbcJBIcl/QYQKtpP1wUV8EzyaRu88y1PB6vVaCbXc
hJ7Z2KY86y6IysLhpTLBJYOu0E90ITiK7h/vaIY5PYr7zq8bdPf+mTlPM/4F
fl9KEQ==
          "]], 
         LineBox[{{0.2300310350547647, 0.944940771501318}, {
          0.23433748499399742`, 0.9500572713446069}}], 
         LineBox[CompressedData["
1:eJwV1nlUTesbB/AcJBVKchtuUYhQpNwS+UYlqQgpQyWllOajJKET1xAqokGi
VKLIEA0/pTRQFGmeO/uc03DO0dXeJJHh9/pjr70+69lrr3d6nvfRcAvY5sGS
kJB4Tp4/723BMWHP5zagWm2ionfUMLZ9lJd15jTg9FBa8aOCYbx5Pysq8VID
tgTsfWVYOoxn8SqnZB83IJrTZj/v7TCS52iFjjINyF0sUxMkHsZufZO9bw41
wvXhvBvh8jQ6dvssY4c24fsDU+0fFjTO8y19E880odomwESwkYbxwfnZJfFN
kP/l+OGlNY2UsB7NKU+bUJk8dcGJrTRck7bMTqGbMLZ6xqlnTjQGW/R/vvRu
hse3cG9PNo0vdj/eKDu1IFSc7X47mUZWe/sU+LRgXUaO0ZQbNBxc8833H23B
lErNOR6pNIoC/EsfJLVA/L5YRzGTxrEY6rFZSwsiYufkbsilMbGuKslvcyvo
JYW/mFIa8pbRnuWmbeh1UloYwaVhnl2CJVvb8OLnq2lxPBpHZIaU4ve14byG
eXWagAZVv6nW62QbompsXzwepPFop9Ryuao2uFTULkofpmF38NQ3F8t2uFdS
j8t+0fi3Lq+xxrEdAc7J2y5LMCjS5d9b4dUOjtfs7y4sBnM/m7pIRrWDPeOK
98fJDOjwXxW5b9ohnL9kTq8sg0vRYRd/2HbArPf9kYkqDKqG73p4unRApBIk
TlBlMLa1fe17/w4ITpy9rKXGwHW2IZMR24GNR9UuGM9lsDx1ZId1Qwd+ftc8
slKLwftHAXOS7TtRJPPpYpgeg0kKqWMTPTrBLbif2LCCgVHIuwa/kE40q7FY
WgYM0lbp/LsuoRPpu0J+V/7DILBCLBS2dYKn58tvXs1Artkjz3BPFwZnX3a3
sWBg+t86sb1PF/KOsB08N5DvJdU12eFdWGFlPHzMkkGDUevl+9e7EBgqq5pm
xSDuxoYgje4urBv5lFBqy0DxwMLlMs7dOMnaPOy8g8EGzkSvRX7dqAbf2MyB
weFr3FSL492In7HCdoEjg9baxBmcG9247d/wlruTQdJyqeGRnm40smRDdJ0Y
qHwX5va69MDQxJJl4MZgk8LL/nH/Huxb2XVjgPjo0ltqyhEkTs1RT3Bn0OWy
K3p7ag+kpLqbPuxnkFL52reG24O+1lAL9gEGdd23M/uHe2CXOG4o68Xgx5fI
bpZEL4JTl6tlEDsvMrYxmdsLjy2cV9XeDNSjc5bkufbiyZX/Kod8GGzOOuNe
H9iLoM9m4f6+DE6UuV0f4vQilXq84j9iLqMis/AW+f7Snrs8P7L+DhfE13m9
WJOt0p0VQPYv4IDm/5hemPQFlcsFMpgQZba7dQIXtdPyn4QSuxWPv5bT5ML2
JV6uCWIwb65v9mk3LuzqnlRnsBlc7NW4FR3Ehewa7TqaeDSlLSmew4VJyOpN
qw8xqFE2O3f7JhdpvQpFNcR67WMRublcGEta5MgEM0hOeBCaX8LFuFioYkPs
q6By4GUnFxm6m4+9JG5pqHd5K+JiRpB/wC/itZdOO7SMceG4pqzfIITBuTNj
6WwZCkfpVNdk4uceTTdHZ1JYOXLywGviT+YPko+qUJhbvGb0C/GeifvjTmpT
EAjfPLQ8TPKBvzZGUo9Cg3ig25e4qlz5/HkjCpFir4RY4m9pI6enm1LAsqCe
h8S6nPrIOEsKTtfVn7wldtubc3z2FgpWD2KURMSJa0+HJTtQKDvTM50VSvZX
zTVE3YVCZ9+CRCViiZ/GQekeFOYtjcxbSmzQrein5Uchz2OK21pi72LaKyeY
jH99fZYt8c3k2v26xyh8U/0YuZu4MSzLNe8UBXosdGQ/8ZRdkU7/XKBQeDHi
ty/xGiOnnc/iKEQZz85kEwf+ZWi/NpnCxr9sBCHEt0fl7SpuUXD/sKz0MHFn
y5D1hmwK7wzqV/6JT8+vtnzziMLnRf9YBxGbXU0321xEIb4g4PdB4iOHjqOx
jELR2dPb3Yjvb9u52qGawqmJnI2OxDw9fcPOdxTU7Dy5VsSz5afru7RSOGe/
VtmYeBMt1OX3UAh7Jvt1IfGJ+srFnv0UtOjmMAXiJw9uaomHKKguvpb+g6yn
MDpM03+EAstjN1tA/LefvfqncQreB5TE1cR2NstUDk/k4UJlg3QO8ekl0rO/
S/MwreNUSxTxR1HZNJYKD3Yl5b7riTVfJ089o8GDtNP61arEjndDJktr8xDp
dLuQIefjheeSn/JGPKRYDT9PJP5iIfktHjz8LCy3OkC8eAFvRNmSh5Fo27N/
zt8VQcKQhgMP+oI9qjXkfNZUBAlvO5N4zYtDMcQ/btn0aXvw4DuQEbmN2NOV
1a0XzIOP9Y3yJpIPRj1+teviePgrZ/HQM5I/D7TZil7JPCgtUIryIp5/+PDe
mHQewr2UjisQy82I+NyZx8OUAr7/PpKPItNLqsFNPHQMb7jWQ/LZNfqqR3IX
D2kxx6cfJm7tSHr4QsCDmkmVQIa4gn3LbNoID/b7+/OW+ZP8y8zzyZrFx/3t
/Ak7Sb2QYwry6/7m42rt9IQuUl/OmBT//jSfD3bOxzgnYnZr5RWs5OPOEYla
h4MMrKVaitt38BEkm7116Z/65fNVRiaRjwq93JtOpP6xi8Z36KXy4ag7sKqQ
1EfhJIk0xzt8hO9W3TyDuPmGlEFmIR/V9q79ha4McuuVnUza+XDft0csdmbg
or/mfoCyALZ7XTU7SH1ujjAdjdcQIKawrUyGeFOduWmJtgBH0nb1ryb13NDD
tlnKWIBDNkp1V+3JfBJdftzaLcC7Ko6G9lYG5d85Ns3XBfApdn/UTe6LZmX2
aECGAAvOypwf28hgwMg9TeaeAM1+klYziWVDLUbWPxOgjZUbBnL/OHyemvK4
XQBZbnwRZz0D8Ye4DzGKfSh8pLgu1ZjBrJ7M81axfdiun/jVTpuB1o94g/6E
PixsXFG6eBGDVapnezk3+2DlHHiCtZDMb5f3iqLcPjzes+TjvfkMslt0OrXq
+hCu9yl5YA6pd+8KtCdN7ce9AvWccUUGXmU1NaUn+xET0xxxl9z/31bJaRqc
78cd9z23rH6TfumpY3j25X4o9CXxhD9p3Mse0Lma1o9KseYLjXEaH69MuuJd
2g+H/HLW8S80gr1MnWd978cem27JThENjnwR4x00ALMXsQZ6DaSfufh7E/fI
AM5Glsgl1tNIl7TMtOcM4Gv3V+XxtzQqx1scEDuA2BSz/OdvaEgOfC6elTuA
fP5TFZ0qGhefLTtTJhyAWD5l/GkBjWvud1QUXQcRkDfe4EP6L19rpYqlXoPg
aAebBCbRWKsf5W0eOAhbha7L7AQafJZP0SHOIO44b/waGEdjabquQ2PaIB5v
sCm3P0+jlMq/HMsbxIwTnvlFYTQEzlVS0u5CTMuUVf3iQKPAYuUjDR8htCvl
jxXa0zink+W46pAQnSUXm0K3kf/9PJvldUqIKHHAgU+2NA6nWJtXZwgx9ctN
nXpzGlJdjRH/9gkhq3Py7MIVNDorzBamDAnxxGTx8dfLaNzPefruyYgQ7ndX
BXjr0Nh6NEFNMEkE9VdjVhmLaCQr7y5et0CEFttKwS91Mt8JtW67dEQ4Phz8
6tLfNCBaLR20UgS+0Y67c1Vo9BWp7UqzEMGEN37QWJGMPy1GoshWhCx5f5uq
mWT8537fqd8hQkC0p66NHA2dnbzRXx4iKKas+bJDhvTDM/Hrgp8Id0aTbrCm
0pB+mzJZOYTELauiciXJfpYKDKxDRSg56Xrp92Qa/wciFRYP
          "]], 
         LineBox[{{0.23625075030011988`, 0.9522894252035554}, {
          0.2427539608634361, 0.9596923149522161}, {0.24473497527024407`, 
          0.9618918705202626}, {0.24869700408386003`, 0.966214899096109}, {
          0.25662106171109195`, 0.9745638193347113}, {0.26571003401360527`, 
          0.9836691732936919}}], 
         LineBox[{{0.7977254937950798, 1.5183902792384136`}, {
          0.7992311177346998, 1.519059906283863}, {0.7999685096925281, 
          1.519387114274943}}]}, 
        Annotation[#, "Charting`Private`Tag$336873#2"]& ], 
       TagBox[{
         Directive[
          AbsoluteThickness[1.6], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          Opacity[0.4]], 
         LineBox[CompressedData["
1:eJwVxXswGwYAB+As1cVuKzcaj3E1bEF36TzbOeW3qtrEtFSZpWij6nUjrTqc
IZ65XkibZR3WhqiyYK0iTFsOEZqFMhoW4qYapE1dEmVWq8kef3z3OSYwT54n
EggEv//8/1ZoRm0480JA1KeZrBF9ENiJLq6/Uo5jkZ6oq50UY1y/nMalxGP8
THrWSXUvfiLP188JkqAuLqtpJ0qwJj5a+TUlAw6yTXOPa1K85/Zb7z/KTEhf
ceIWFSPwz+V4yAXZiA6urb44J8NZWYCIz8hDvrd+ZatTjhKrDftYSiFebu/8
0JA6hsedkXL+ZhHqAt6dH981jkQVteyVsgSPbxtD97EnwHZT/zUoYCOhjlrk
3TwJ64i+rg9Zl3E+dWWh4fgUmnOrmBwGB9Kjxas++imMyWgrkZQrsGrlrV21
U6AtxyI81oSH1ez3U7NaFcipYN25ssnDRujOltR7Gqbir1I2lHyEGwmTtv4z
2E80W+gTVKEwWcco/0CJdfI3fgZuNQxJB3ZbVivR6/a8xpFVg+jXxC/NSbP4
ImIoks24jtLDLUuaJ7Ng1mfLT1DqIIwt7EzLVeGTriVKibUQerf2M0tzKhAS
XQPpJvXgsi/1tPrOQ57zvbBysx4NXoN/M/+YB13IpL9UNoC8ZzT1eszvyNc7
Tz4Q/IiypvTXNZonOJurMkaSRYjZbGQobBcRRPyWquOKoDgRWqHGIvZYGTkO
rGaY8ubHRZxF1PnPHitjtGKb9kjuYvcUksrK3jBKG8h9SaLT+9XofzH36O2W
NgwPbRHzwtTo+9xlQf7RXYgeSDIPX1DjNJFBuGXTjuVnmpyfu9SI6t92ctjX
Ac/psDv3fJdAO+iRYu0mhmo9barcZxleFME6CT0o6DJP29hZgedM4HZSUQ88
hEfMOmw0cC/T7noo6UF8RvuxAC8NDqgPksuC7qGbGsceTdbAtW7qEIF2H8mz
vqr+CQ3srUgFW6d6YRzj+t2+9gy738wkadMGIKa7Hyo10eJ5CMt8QzSAyZHu
jHUbLUa5ldY7ywNocr7ZGEzVQsZRfHf540GcspBCGKVFhYX+lqBlEFF5dyNs
m7TY6+Q8PFwrwbD7dG06XoByhGtCZktBa7aMCTy3ihAWo7w7WoYhM9INj0wd
PK9Kgm9myRBMcCaEFetgL3Q05fJl8OXff4PO02Gt/ykncUKGFLtLn4W06VBl
ZPAsg3/Bn4bwhyytDssFCTcu+sjx1tyMIiFOj6L8cx3UvWNwstfQG/0MaAmk
vVMvHoOab4gnlRrwL+ep1nw=
          "]], 
         LineBox[{{0.2183324909998399, 0.9881292531093269}, {
          0.2343374849939975, 1.0155624709864737`}}], 
         LineBox[{{0.2676232993197277, 1.0680994746113694`}, {
          0.30416540747448334`, 1.1198322691961011`}, {0.3050898129872982, 
          1.1210700962031082`}, {0.306014218500113, 1.1223046499605518`}, {
          0.30786302952574274`, 1.1247639968974938`}, {0.3115606515770022, 
          1.1296440564757255`}, {0.31895589567952104`, 1.1392528129295976`}, {
          0.33374638388455874`, 1.1578889242801833`}, {0.36332736029463414`, 
          1.1930088507999441`}, {0.4274424783864683, 1.260638243195428}, {
          0.490388312770394, 1.3177199302475104`}, {0.5491036389566153, 
          1.364189575994359}, {0.6127721304145198, 1.4084026606653608`}, {
          0.6722101136747201, 1.4447218072503407`}, {0.7304788132270118, 
          1.4762968334681266`}, {0.7937006780509869, 1.5065901413180005`}, {
          0.7958122284889577, 1.5075363896305514`}}], 
         LineBox[CompressedData["
1:eJwd1nk4lekbB/BTUiZbIksZyiDaZCuVcRsZpELZUlRUshVJHAqJSGRfD8bY
xlLR2AbRPrYoJiOiFaWmwuEs73MWv9vvj3Od63Odc973fc5z39/nXufhf/DU
YhqNNoivhfdD69wLOLGfof372SE3NS4w3yptlXf8BrKt/RlvP3Ah5WbYaWfn
KThZeCe1aRsFmtJi++l506Cs87JZ7yIFjQGXbyYVzsAGSYNNT+9SMKCRvuxA
GhOMd0RktE1RsGe9otGZLCaInpOYuTFNwT2tAq94BhMYduaP3GYoqNxY3vWw
mAmR2d6PeUwKInTvJujVMeFSRcqvumwKtH4ek5YbYIJnoO65K3wKLjnoK75c
NQsm1rWF98QIqEe/0HLLnYVqFeORclUCh2pFdD0LZsE00DzFfi2BxPf6O/yL
ZmHxkGeXEM2CjD1RlbNwLimt016NQDvfwaeseRakbKqFHHUC3sGDN78Nz0JZ
C99HewOBau/hLRGr5+Cy/U4rXQMCO+zeGhTmzcHGbi4ZtSDQOin6zaNwDnb2
/OLkbknAJGpTmWbJHGiNxeyfQJvXhq6qrpqDs395rvhqRcBGTo7d2jwHaQoZ
X+asCXgMWf316uUcMLUtxOZsCCQcr90hL8eCMzaSpRVOBF4HXDW5kYgeK5ea
OUmA9uDBj8UpLKA1NNt6nsL1S/P5jRks+DAxqDaC9rkdePddPgsm5e9EPvYk
wP18zMjgNgtSDu1WSPYisPLETr2RXhZE5H8ZkvEjYOU4paEtzYZqTcOL7YEE
fEs3iJrIsiG5edmOLecJJM2eGj+owAbr4ZrETPS/qaPFl1TZIOnGZnkE4fM/
61Lt02HD9POUF9wLBMItS5VC7NjguzZwYEUogdodLpJ/p7LhCZloYEbg8zKv
52dksqHHPvyUZSSBzKrWjSdz2fCfXNndPDR9zVprkSI2VJjQXHdfxv9T8DH2
lzts8NB09U+KIvD0QRDt3jO8vsjuOdkYAuOWKbON4hzYElQl8/oaASfaoyux
0hwwuO97TzOeQEfTrIyTLAf8N0fKBaCrtJ23slbj59bM1kXXCQSIq5zR38AB
iQvHF61LICB4dvNjjRUHlCw5PrY3CMg7dQxXXOVAxBEVB79UAhbGpaan4jnQ
ZLZJsQodohZVvu4GBxYt9k/4hB76vvMCI4MD02NvI93TCOTFVa9ILOHA4/i4
4gPpBNY2Z1r6P+TApp9z3qplEtigfLLBUMABOZO41vgcAocX/6LMpHGhtX40
oQ2dMPljdPUSLsyU35eYQX+tf2m3XoILWVtDfnLOJVCzf+9XxTVc2HXh5h+q
DAIGkXo/8Y24cGt+qVxxHgH4QEt9FMSFhCgpsTO/EVgRyVTpo3PBvPvtXQb6
w5rxW68vcWElmybfiY5x7OjkxnChhSS0rSsk0N15g6aTyQXTPt3RPrRTzeqA
vAbMiahlvipFBLT2SQgrmrngEKOXZIGmJgUJjW1cqDsk6XIWna/2vrz/by6Y
GWl/bEW/zyx/u2yQC4Vazu8ciwn4XTKwDWJzIb/I5XRICe63kubrKMKF76oM
aQZaulHBN1nIhaf098db0bVTJLZqKQWX9w0L59Ecj4f33slTEFdwd0N0KYEr
e2y27N9OQZjS7w6hZQQcPkLr4V0UePRoZGehNaJ1rb2Agk9PaTF16M5WOc9o
SwoUtX5w+4qW2jpS0OxMwfLuYqnDfxDIlfeS1KRTYEl/FaVRTqBJ2W7vd8y9
RJGQ0V3oITWj+MZICgZZ6d8OoBV1xEQt4ygwDkjRD0dnWVbwT2dRYCLtateH
btyfsnMrg4LVdk+Oj6MH7el0bgEF9co6Wlz0quNWc9fKKIik9o2qVBDIoE/+
V1lPwcdBvxEvdH1En3ZgEwVLGm6VhaFfxDSd3tmKOfu3//pE9MrUa2Pdjyk4
fOz+gWp0aqXWyH//UMDyNNs9hU565dW9GXP3uFJ9+YlKzLd3dmLsOQroZdkz
Aejej0YW97gUzOznzYajJWbFHtnQcJ9ORalloxPEK5v9pQkUXjfWakdXyaRy
tsviOgQD2/vR3QqhhjQF/B9ee9NG0cvV9/yZooL7lt/eOo2+Zvy54s/NBNRW
8sbkqwhUmPV/DNUlwBdqtKmiO6ya1c0MMadNO2210Esd43//x5hAzvOaIiO0
5pFzbximWHcZsu6maAt3F+UT5gRuFWx8ZYm+ekY7Z3YvgTX6DZQjuvS8zOBd
W+wz8V9/d0U/CaVkY+wJBD74m3YCvSS2K1nuCAE91cGps2j1xD97R48ScP0c
HRGE3p2WK17mQUDnn6Mdoegrv3nHGfpg34gOxUWjzY54frU5S+B7qKXrNbSI
4okDXpijIgLqTeLC/QaONUYFY18nL16Rio5JdV2TF0ZgQDtoKgNtbuNyuR5z
kd3mHp6DFhV3mui9gus3fNOch27vOGj9KRb3PYhf+hs6Nsa2hoY59czxuUnR
wvp/2Se3OplAym3vuBL0MqFVqD7mjPieNxFl6M6WX9/sy8Z9/A4a5ehrIWa7
PTEX1I4UhVWgrQygIhL7uspyVWQlWmxml2Qu9lX7iWq9qoXf3zYKrMW6DDgU
mbngeB/Dl09vEvDvYJQv2Hq9nvFEDYGTe2W9F7x8fEuRsI5ATwhveOF63b9v
XKrYREA4dIos3O+6m5avbiv2+dzJ7oXnsV6t0Wf9gMAdS3HrP9DiL9cZnnxC
4IS1b2gpuiddhRHeibnjl32oGJ1ot2Y+qwfPCfniT4XofZKKJ+/0YX1VFWgW
oCW75bq6BghMROevYqCfxcpsGRvC/WHdqc9CJ+2WSuePYr3s/yaSjrahiXNX
vcc66D8hkoyWblvmpjNB4NM9zbrr6JRti9Z7fCOwre7VT1Fou1lBwsUZvK7c
9PhFtMwdMp3BwjrJZjgFo9O051o6BAQ2eXP2+qAPfpxWfb+IB8Wjvc8X6m1l
ybcYIsqDxc1RS9zQ6cqfbDZL8cCwsuuyDdpheKzOYiUPDlVFdVqg5bLeKR6X
54HU1NGHJugM6Vcf0lR4oP6ir30zOmtxbzB3Cw8iLl5VE0M73e8akdHngZXJ
EZYA+03hUrvpxu088G4YD51F57DuLz8KPGgPdcl5jWZM1v722JYHLey/NlWj
D5fViLy250GnplJyEXqNxy0vtjMPFPpbSjLQ+SNletrHeWAXJjoeii54ltOe
FMCDXKrwkSlaudlUJDOIBzl1E/O6C98vmYQ8Og/EOh4y1dB5dKPm8ss8GHGJ
oETQuWpDNx+k4Poj+hMfYT5lBiukMu/wQOah1LAuWs79fi+3ngdrKaeQ/+fh
3tPL55t4UO1i1LMcnb72r2jxhzzoCFvK+IB1mtrtFKzez4NPFkkdSegbKllH
nGZ4oB+mTR/GPJf4wSTHlcWD6/YX4h6iE2cnBjwoHlQ4OttUohM6DW38F/HB
f7+yCB0dH/iv6TUZPuirHV2+En21XU6zRZcP5/+xLTDC8yL8bPr0j4F8iKSZ
mNph31g/0n395gIfsmayc3TRivJ9XYWhfGg/mFe3El3fJlGyLooPrmPPdAfw
/PsiEeuokcKH8ee77BzQh27SWzZV88HMq151D56XBpNuMbu+8EHonOwqin26
2JgfwP/Gh+CRPeve4nndl8xwa5vhQ4v5hqomtO/2l9uA4kO2Y4KYL7o41u6z
mZgAVtBlqZ4CPP81dttYawqAWetcdzWfwH/uWoouHgI4sql3tBvnicN+Ixt9
PQWQ+Kv/sVx0Z3AShPsIYMkT14LT6LKEOc+iQAGcYR3cK4I+1vCg4fMVAbht
33luO84nL8Rc7MNKBNCb4TCTlkXgbk18Ut64AKZetKkrYC4lCL4seeMphEg/
cRdnzDGrcxmdVT5C8Ftae1UJvWTi58SQs0JgfDofOoLzWURPiqxMsBCYq4Ma
jy7Ma3nb1MyvCuFdV3KcB85zTjuuQFWJEFqyLyQfi8Ncu6AUFvxOCE1sl0id
aAItXy2npA7Pg7ztvKo25u62pPzrnW7zcC2+ZOzNwnyqM6NxxX0e1Cdkzmeg
KwMZriyvebi4MZAlpGO/cL92jYTMQ22CeXx/CIHgJWmlFZnzoOZszvLDeVdf
edTFrH8eCm7fVwkPILCl/N2EHH8eJvMeh/XjfP0/2i8XYg==
          "]], 
         LineBox[CompressedData["
1:eJwBcQKO/SFib1JlAgAAACYAAAACAAAAaKwPjfUBAEDamU+uImz6P2gpYy+T
pQBAWIKROKFM+j/BVlt7QR4BQFae8/zEMfo/M1jqqRShAUC+dfRVVxH6P2yD
Rtc9GwJAyPNlRBTw+T+IZgj6AZMCQGSsdy/JzPk/vR1h/+oUA0CiBaq0naP5
P7n+hgMqjgNAqsZjZ5V6+T/Os0PqjREEQHTGZwRiS/k/xSBmxoySBEASqVBz
YBr5P4S3VaHhCgVArO3n5l3q+D9cItxeW40FQBBNtcPks/g/+7YvGysHBkBa
ppNV2H74P3wD6cyVfgZA3CG9/dlI+D8WJDlhJQAHQOxFuNwdDPg/d25W9Ap5
B0CGR53fe9H3Pxw2ZMgmewdAfNhM3HHQ9z/A/XGcQn0HQDhrdLRnz/c/Co2N
RHqBB0DQQT/3Us33P56rxJTpiQdATChNxyfJ9z/G6DI1yJoHQPzmkZXKwPc/
FGMPdoW8B0BoXMYM9a/3P7kqHUqhvgdAZrTogeau9z9e8ioevcAHQKhYHtPX
rfc/qIFGxvTEB0A4p9YJuqv3PzugfRZkzQdAwgkByXyn9z9i3eu2Qt4HQATY
ZpL7nvc/B6X5il7gB0A+qfnK6p33P6xsB1964gdASNHr39mc9z/2+yIHsuYH
QMgDAZ+3mvc/ihpaVyHvB0D4yXJycZb3Py/iZys98QdAijCEjl+V9z/UqXX/
WPMHQNyOGodNlPc/HjmRp5D3B0B87+gNKZL3P8MAn3us+QdAok0qnBaR9z9o
yKxPyPsHQChbAwcEkPc/DJC6I+T9B0Bow3hO8Y73P7FXyPf//wdAtjCPct6N
9z/OJCfK
          "]], 
         LineBox[{{0.23625075030011997`, 1.018741282344231}, {
          0.2427539608634361, 1.0293937267458186`}, {0.24473497527024407`, 
          1.0325929003363392`}, {0.24869700408386003`, 1.0389287285052855`}, {
          0.25662106171109195`, 1.0513571789618736`}, {0.26571003401360527`, 
          1.0652295689576823`}}]}, 
        Annotation[#, "Charting`Private`Tag$336873#3"]& ], 
       TagBox[{
         Directive[
          AbsoluteThickness[1.6], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          Opacity[1]], 
         LineBox[CompressedData["
1:eJwd13k8lF0bB3A9bYqyhGSKSqFECZWiK1RClqwpItmiIkWUiPDYsoXsspSt
KCEiWZ4srbZSaVEiQ5Jt3HNmxryXd/6Zz/czc899zrnP+V3XrLN3N3H8hwdf
83h45t4F7KV3VKXQQQPW6vkbUaB6/vzmT6l0gHfvouvQefJvlZxz6PBO5vgN
1yMUrBjcojZVSIfSAzfqRE0pCLodsS/wIR2E25rX15tRYCt60Citng58y6tD
hI9SIMGtPfP2Kx2GE9ye3T9BQXi1xEXrQTqklRbHm9hRQF3wuUIfpcPL3Lo0
xkkK3g0pR8zn0GENT52xuiMFsZ1F+TtpwxDS98Sozo2CRXeTf2RZDkPq19uj
6T4UeNkx6Ftsh4GePHhQ9TIFPyXMxqudhsFd06n31RUKGmIEeLq9hmFrucNj
pj8Ffr6ha3gThkHbLmK/XggFE4cvHvVoHwaVw+Ls5jgKvk4avdmnOwIll46v
UiqiIJrWI+1xZASCMwMqO4op2Kt9wjfLagTWih31OX+fgqz4MxtmT4+Ahlmp
W8kDCuyUwi/XRIzATEwBTfIxBf3nGmV2vBqBGI7DdHcTBUN0lQB5o99woDxM
Jvcz3v/bqm1i5qOgLn7S8h0fE2KLLztbWo7BDRaYldgyQUaA18An7S8ciHTy
k8tjQqXHteLorHEwPd30p/4nE7o33lx8JH4CHBOXWT4SJ6ArK77rbNIEKL5O
e3R9FYE6uQyX8NQJaLrXFWwqQaBQPr+tIWcCCiapkHEaAX+lmsjtjybgzoK1
vLJSBOQ0+gVEuicg5k29ss9GAn5myuI9opPgfFfTvlyJwIbrXXI2KZPQc/ll
RsYhAkfL5is5ZUzC6TddJrq6BKK+K6u5Z0+CvAojcgo9DQm6gYWTkDq8LlJX
n0Az28z1TvUk7CzSaBg1IHDa+33x6MdJeCMWpSBlSqDk9EdFf4kpKCxtWypr
Q0DN+JtKVtoUmMmEPe10J1A7tHDUPmsKTsl1iFt6ENgbuOWOTO4UHAERwV70
/jJf0ZKiKbi1gtH5/TwBQxERRm31FNRckL4/fIGA/YdDjz/1TAEt9N0L+iUC
kXZlamIi05BUlO6UGUDgi0fI3htRaNjZMXiDAE99/Zqc2GnYJKQrbB2N8xdg
sysTpoFPy2mgHe1637OmL30ahC6AVnUMAYpuu0vl/jRUl3d+DI4jIHxq9/be
19OQT/mmLU4kcMh8bOMmAQb0BP2nUZtGwC1v88K9KxhQJXqLJZ1OIHrS8afJ
SgZcUAWjSPS7uM85flIM2FEdUnU0A8f/pk2qfSsDVm1Zm/Qnk8BVnbxVl4wZ
kOA379aiHAJlalbLnscxYNTCy2coH8c7EZGekMiA6VJ+OY0CAolFtfIOKQwQ
Oa/iH4f2oa3Vm5/NgI7UGEm1QlxPzmCo5gMGRAaNKAUXEXhZf5Gn7g3+vm1n
5ZL7BH7qxE5W8s2AZbtad+dDAhY8jUGhAjNgQ2NdW11GoKVqUshixQwkhy/v
cUQXbbLcNi2Bn98NDJhBe/BJnlXePAOqHWNNYuUEOG+KB0sPzYBWbqjCgUoC
YhYtHwtCZiD/8X0x+ycEDqrn7XMMn4HvmTWfstCX1gfmr7sxA5tPzBp8QX/4
s9srNWEGVu1z17KsIZD2b4lgVO4M/B4Qc9SpJbC2OlHHvWEGzFNkc8TrCGxe
7VChypkBjVSxgIAGAsf+0Vw9wUPBgOAZw0foyKE110sWYG4tMHo7iP5d3mMs
y0/Bs6hFg4cbCZQa6P8Wp1Hg0LH7tGgTAZWA7dLsXZhbx5Pe3/qPAPzgiWu8
SEH5l4wX9i0EBAMmJNsxp87KuPvHon/Qft774kfBHpPYD0/RweYtrVQw5oQF
7drKVgIvWm/wbE2k4PSWhsxmtEWphEdaBQW0r0kKIi/wfB7mny2opuBqX4Ox
Opo5xImsfErB5/J0mgM6ff33/I7nFLglVBWUob8n5n9b/J6C1uDBHP2XBM74
qRhdZFDwnDO06ewrfN6rZL4EEgpW+m3qjEELVK50i5mlYKrbQ7oMXTZGQosW
MaGwwKVhGj1j31DXJ8aEB0y9UZ/XBIJ0DRUNdjIh12vrSvc3BMwGofbYHiZE
ylVYRaE3XlfScwEmCMrFHixEt9aKOF3XYYJmcLLUD/Tybb0Z1ZZMUJbZ3mH0
lkCKmMsyGR8meHSf3k9rJ1C12lj/zxUmVNguylJCf1i/K7wygAncI9IPdNDi
W3kX6vzLBMdXUgxPdJJOAds5iQnObiPCzehKg9jd21KZoH3PVPoT+r2pjw+V
wYQvPnXDo2hRu0NTYXeYUGD+OVOkg0CCz9BIYTkTBJTZGSfQ5f7tmzyrmKAg
pO7ige4KrnLeXcsEz3VceiBaOC6s/0UTE67XGIrkoeMK5XpHOpkg2dSxcAAd
/cnlhcI4E8K9tF2tOjHf+ox5GVNMyJ4nW+6Efj2462AdxQSJoojKC2j+Sd5G
Qx48pw2CA1HoSL7CancBXLfBl8M16CKhuJmdKwhwrRxIM/rFSl9VnpUENNWY
jR3opRt0H8ZKEuilzAMG0WHq9IKHCgT0z0Xc5e8iUKDVMeiLOb7xeEWAKLrl
UPUGLVUCkhmWwpLoRebhtzvVCTTIg4MiWub4+a+p+wgc+ZsjvQN98KTV6lP7
MZeYT9I10CFnNyVPYq7vj9lfq4/OuyD0vsaIgKlzt70J+j9f5opgzPW01eZN
R9ELQttiRI4TOH7FscwBvSHq4evPJ/B3DqzQdEVrx6fw3bHHuqL4J9wdHZR5
+l9VVwJ89s56vmit406/Dc8RWPn+vaQ/er74qSMungS2WIVnB83dr9u2MtCb
wPWRuM5QdHCcNS3tMuZMyPyyCPR+Q6tr5f4EpCTGIRq9kM9i4HUQzj/+rF8c
urnFRO9XKNaB9kjnBHRosFEpTyTu+4cn5t2am7/mYREJzPnqJUzdFPTi2UO+
yjcxB+6c1UxDtz458PXwLQKqem9/paPDLmlpO2HO6z/eppGJPqQCBQFZuI9y
8zSz0Lzje5al5BIYe6YxPefW+7s8yzC3U8qXH72NDndV7XlZTCBZerPrnPVk
t6sPlBK4kZ8jP+elPxWzZx9hne2KSJ+7/sVt+UXiVQRkVadr5+4XYSPnpoQ5
6Gw8FZUxd73Exna9egIfc1P558bH17NO1QFzK+ou2ZOKfnVTMvUq5k5Aqwwt
GR1lTOMm4bnP9lQqSkQfXibu8ADPTe8iBXo8etkLkba2bjzHffIfYtBvQoUU
+z/g8zHZdykKHa29/Cb7M+6XQr/mMLQhDx8l+p2AgsLk82C0wNPFNlsHMCdp
lV7X0LE75snajxKwFXAd9EYbT3Iir4zj+nsE5J9HCz0gfxOmMccmN606g47f
NPWkhUPA/Hnocju0yeBfqe/zWPByl028FVo4dzSYLGSBvKhQy9x+vLn6l6HC
chacWGilvR9t9rH/0UFhFgQuEopUR4sk9YnbibFgp/6f6yroBIFPP+IlWWCw
1S5cGp30z2tvSpEF+T0iAxw8XxbP2nqFlFlwPnX48SR6pV/zPvmdLIgXuqhO
RydPP1t6Algw9m7oWBc6dagss8mIBf0mOmO56GN3Sud/MWXBeFDBkVtomv09
F4YlC/Yp6DlFoNN772zfZMcC3/cJd93RGW+Sm6M9WNBovjVkB3p19b75iRdZ
0CDg1Sg79/3cIUjzYYGS9JEKcXSaz67q/GssWFC5rJaJeZSy/kNxfSzO/5Od
URU60Xtl3MQDFuxek5kmixY5+ew1Vc4CXfNBtf/nob7zUm4VC3oqWqJ50DfX
Pr7O18CCv+8TrT/gPoh7YeG9oYMFgrlrIoLRNySTjluMs8D6fdXut5jn/Ev2
JltPs+BR6QK9x+ioyYFueyYLOh4OCmahI1tVDd3nsSG5sPj5WXS457t9YUJs
sPYffbUYHdIsIvNEiQ3pit9sFbFeXD138+8aTzYUWL/+5yDuS71GpS9fvdjw
zED2uCxaXKy9LcuXDWMlm7150eVP+XPXBbIhBE5MtWH9G+YPNd8Yy4ZlW14K
66GPFvs82VLCBrf/tH/sxXqpMmQTvGeYDbLlklIsrM//qLM92KNsyNr5sb8b
3R6TavN0nA39t6vPlKDddvbsACYb6h9KvLRD54Qa07V4OaDWnVPT2Iz7eqO2
oZ4MB2gCv7yuPCcwclJO3MqeA8Fh1ln12E8cO9Mr7+bEgYrs2XUx6FbvaLjq
ygGFtb9tbdB3Iqecsj05kHTkxzIm9iO2FfUV9CAOhN5sU1ZAd/FamV7O5QDj
b/+jsGcEakrDo9N+ckB8m8Evfjz3kZzhBV+dZqGgNZVmgP3WofMJrUWus5Bo
r3lIAL1gQCPq0rlZaNKer96BOeL/KnaFkPcs0C7N9zVDe6TtWL8/ZBaWyEjp
HcX+zUItCIpyZ6F/coGJ+QMC671WXfbum4XvJnTNjfcIfBtq1ND+OQsuHBun
PsytdOsz8wSHZkE2Wt00DS26/1lY4dgsbLe1CxVE865wvPV5dhZSmHamFPaf
fx48KNdawwWvTIW4p5iDT37rjC0/xgUojv4hiTm5Izo9otWGCw8Htt/tnut3
t45vDDrJBQPNbNUIdKFnqvW0Cxfy/p1XNZWN54/63dZ7iQu9v7r0W24T8F4Q
n1eQyAX9R12P7bF/nrgzCPYpXIhzd1cXRZ/T2dNLy+CCVJ3LjRbstx0jfgrF
5HHBMyY5QR5tJrgzwOsRjufTyK5xzHXl1Z+ttDq40LzE6LtnCtb3p9umWd1c
cF+xcNt69GbbkNiKD1xIcS/U70jG9cpRbJHr4wJ3oo+uiM7Uvm7/ox/nywk5
8wXrhsRADyftFxfoazVqI9HCcoEqAmNciLRe2PQrCfO07d3b1gkurNGWu5yI
Xuq22S2IwYUL367NaqFD+QMWqRMuaAuLG//F/xvzSrqypzlcKKlmnMtAN81e
de/kcqE749TIBfT/ANJCkoE=
          "]]}, Annotation[#, "Charting`Private`Tag$336873#4"]& ], {
        Dashing[{0, Small}], 
        LineBox[{{0.7958122284889576, 0.9914644279219017}, {
         0.7967688611420186, 0.9908703172399057}, {0.7977254937950801, 
         0.9902762065579106}}], 
        LineBox[{{0.22811776974864223`, 0.9326259898328166}, {
         0.2300310350547647, 0.934940771501318}}], 
        LineBox[{{0.23433748499399742`, 0.9400572713446069}, {
         0.23529411764705865`, 0.9411733482740804}, {0.23625075030011988`, 
         0.9422894252035554}}], 
        LineBox[{{0.26571003401360527`, 0.9736691732936918}, {
         0.2666666666666665, 0.9745964565730131}, {0.2676232993197277, 
         0.9755237398523336}}], 
        LineBox[{{0.7958122284889574, 1.0014644279219018`}, {
         0.7967688611420186, 1.2599273535803677`}, {0.7977254937950798, 
         1.5183902792384136`}}], 
        LineBox[{{0.22811776974864223`, 0.9426259898328166}, {
         0.2300310350547647, 0.944940771501318}}], 
        LineBox[{{0.23433748499399742`, 0.9500572713446069}, {
         0.23529411764705865`, 0.951173348274081}, {0.23625075030011988`, 
         0.9522894252035554}}], 
        LineBox[{{0.26571003401360527`, 0.9836691732936919}, {
         0.2666666666666665, 0.9845964565730134}, {0.2676232993197277, 
         0.9855237398523337}}], 
        LineBox[{{1.9992345525568234`, 1.6515503049793296`}, {
         1.9999999999999996`, 1.6514836122748213`}}], 
        LineBox[{{0.7958122284889577, 1.5075363896305514`}, {
         0.7967688611420186, 1.507963334434483}, {0.7977254937950802, 
         1.5083902792384136`}}], 
        LineBox[{{0.21641922569371744`, 0.98474472562938}, {
         0.2183324909998399, 0.9881292531093269}}], 
        LineBox[{{0.2343374849939975, 1.0155624709864737`}, {
         0.23529411764705865`, 1.0171518766653525`}, {0.23625075030011997`, 
         1.018741282344231}}], 
        LineBox[{{0.26571003401360527`, 1.0652295689576823`}, {
         0.2666666666666665, 1.0666645217845263`}, {0.2676232993197277, 
         1.0680994746113694`}}]}}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, 
     ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
         TagBox[
          StyleBox[
          "\"\\n Force \\n (\\!\\(\\*StyleBox[\\\"f\\\",FontSlant->\\\"Italic\
\\\"]\\))\"", 11, StripOnInput -> False], HoldForm], TraditionalForm], None}, {
        FormBox[
         TagBox[
          StyleBox[
          "\"Adversary Power \\n \
(\\!\\(\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\
\")\\\",FontSlant->\\\"Italic\\\"]\\)\"", 11, StripOnInput -> False], 
          HoldForm], TraditionalForm], None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     LabelStyle -> {FontSize -> 10, FontFamily -> "Times", 
       GrayLevel[0]}, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Force as a Function \\n of Adversary Power\"", 11, StripOnInput -> 
        False], TraditionalForm], PlotRange -> {{0., 1.53}, {0., 1.8}}, 
     PlotRangeClipping -> True, 
     PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*StyleBox[\\\"Unilateral\\\",FontWeight->\\\"Bold\\\"]\\)\"",
        "\"\\!\\(\\*StyleBox[\\\"Unilateral\\\",FontWeight->\\\"Bold\\\"]\\) \
(observed)\"", 
       "\"\\!\\(\\*StyleBox[\\\"With\\\",FontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\
StyleBox[\\\" \
\\\",FontWeight->\\\"Bold\\\"]\\)\\!\\(\\*StyleBox[\\\"AUMF\\\",FontWeight->\\\
\"Bold\\\"]\\)\"", 
       "\"\\!\\(\\*StyleBox[\\\"With\\\",FontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\
StyleBox[\\\" \
\\\",FontWeight->\\\"Bold\\\"]\\)\\!\\(\\*StyleBox[\\\"AUMF\\\",FontWeight->\\\
\"Bold\\\"]\\) (observed)\""}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    Opacity[0.4]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    Opacity[0.4]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    Opacity[1]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    Opacity[1]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    Opacity[0.4]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    Opacity[0.4]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    Opacity[1]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    Opacity[1]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> 10, FontFamily -> "Times", 
          GrayLevel[0]}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"Opacity", "[", "0.4`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"Opacity", "[", "1", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"Opacity", "[", "0.4`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"Opacity", "[", "1", "]"}]}], "]"}]}], "}"}], ",", 
           
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"FontSize", "\[Rule]", "10"}], ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                 
                 TemplateBox[<|"color" -> GrayLevel[0]|>, 
                  "GrayLevelColorSwatchTemplate"]}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.8595691771055098`*^9, {3.859569219757865*^9, 3.85956923384632*^9}, {
   3.859569287403575*^9, 3.859569315949252*^9}, 3.859569372606969*^9, 
   3.85959239490831*^9, 3.859592804921047*^9, 3.8595929026136913`*^9, 
   3.862971160254161*^9, 3.865294987399*^9, 3.868400750500387*^9, 
   3.8684010939084797`*^9, 3.868401157835814*^9, 3.8684012464135637`*^9, 
   3.868401747004484*^9, 3.868892977771821*^9, 3.868893137737378*^9, 
   3.8700215435622587`*^9, 3.8700905620747013`*^9, {3.8700905932747803`*^9, 
   3.870090616709106*^9}, 3.8700906495775623`*^9, 3.870091056786356*^9, 
   3.870091145620737*^9, {3.870093530273731*^9, 3.870093542720077*^9}, {
   3.870093585589527*^9, 3.8700935997525806`*^9}, 3.870093643026445*^9, 
   3.8700939917332087`*^9, {3.870094200339924*^9, 3.870094229670094*^9}, {
   3.870094268571455*^9, 3.87009429250589*^9}, 3.8700944588960867`*^9, {
   3.870094490832898*^9, 3.870094545833413*^9}, {3.8700945851166162`*^9, 
   3.870094602546216*^9}, 3.870096066312161*^9, 3.870096175807495*^9, 
   3.87009634740561*^9, {3.8700964475157423`*^9, 3.87009647161662*^9}, 
   3.870096505216015*^9, 3.870096572381488*^9, 3.8700967288776903`*^9, 
   3.870096843158063*^9, 3.870100951592588*^9, 3.906561982061974*^9, 
   3.906870070366706*^9, 3.9068705390211906`*^9, 3.906871324150392*^9, 
   3.906871422465259*^9, 3.906896355656061*^9, 3.90689928623871*^9, 
   3.906967678556485*^9, 3.906967722597374*^9, 3.907656412008731*^9, 
   3.907660769503179*^9, 3.907661488252862*^9, 3.908622308585845*^9, 
   3.908622747869052*^9, {3.908622827205266*^9, 3.908622871043709*^9}, 
   3.908629150236465*^9, 3.908629181335867*^9, {3.9086293604796667`*^9, 
   3.908629415361327*^9}, 3.908631071162711*^9, {3.9455283815469437`*^9, 
   3.945528386757114*^9}, 3.94552841997161*^9, 3.945528896203038*^9, 
   3.94552933678194*^9, 3.9456860245978813`*^9, 3.945952259198818*^9, 
   3.9459538722572527`*^9, {3.945953930931611*^9, 3.945953972456208*^9}},
 CellLabel->
  "Out[2373]=",ExpressionUUID->"2814e7d9-a347-4e0c-9858-ac63d426a53e"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwt13k8Vdv7B3CSkAYKXa5SKkNSposmH0VRVJIQJQopilSmFBGZiUTI0EAS
RZTwpdA1Zj5mzjmOWZy9kZTpt+/r9dv/7Nf7tdYfaz97Pc+z1paLjoY2yzg4
OFZzcnD8957Vu/7MwNFJI2/5Oo9vE9rwt5aWqZc6gRjas2eO9R/wfaL/aqiU
BUxUdpyZ6y1EhnBXckeCLVKsmHxJS19AfNAKcZC6juyyjXddw8sgJttauNTm
jDNbX5Yc/v4NB9yCFKsSXNB+wmi2tKEClhUaaZFWHiAEuEp5XlfBR2RK/JzU
PSB7L0PrXA2ack5XRf70xucPLuiYqoV1p/yDX20+OKs1WnvtZh38Zft+f0nw
xyMfD5Gx+AZsOFWUu90rALfuL1RXaDbitdsTxyCrINx6SD/zubcRNRXHBk5L
hWHAop3nBW8zslzXGZxbHgFZvoS0z9HNcA32ygz7GYGTfwI95Te1gPfDWbup
tkgY66rkv5CkYceyNb1FCU9gF8Lvmc/ZhknhO/vYoTHItLW7vc65DYWyw7Fb
vGIxa6X6rJ7eBv1Tpaf9reJgQZxQ4Mlth2OyS9VJqUT4p3E3Vh3qhHouS8pn
QxIYJdY6+Smd4LCWOWS2PBnzJiNnxxY7UeUanRTyMxnPjHw9ruZ2wSzJ0Yxs
ew7O+Zr26NU98JzY2lCQkIrpfTpn+n3psHTrXDwtnAZT3eDTtO90aC97JD8e
mgZzkVaty/wMrBZZDJLweo2wh04Cc4YMJB5oP/zA6g2afIO+D3Uz8DUkpPC4
VBYu7+k02NfLRPFoRy1/ehamjLd12SwxUaQr3Vsl9w56Ej27FTb3wXyZFceL
v96DCHh5KNOyD2eK5yQlNmXDjb/3nm9PH46pKtptkP2AC2H9maqVLOgOtDm5
XP2AxhnHR9r9LOg8vudOy/iAjCn5TWs4+qE9WRMUtSsXtmU1BztU+6GRZZu5
ViUP3Er+P5xS+qEslTDJg08YevpbN8p+AEq0Q3O23p/gmnGUwfAdgMKDEa5/
v37C7+7H9//ED2BXn6rwA+180Fi6/NE1A5BJbFTjOPYZ+uDe6ykzCHERnruz
RoUYLvTqzOgYBPcKZ56RqyUQOLmy8NHGYQwf9Vo7lVYCZ90Dpia7h1EdGrJh
ob8EYk+0DyxpDqMiqDkqYPcXXBCJ+PvXpWEEr5t4kZD+BQoKOT7hr4chJLm1
vPzZV0yeU3FP2TkCqYOhy4X9y2BtvcFvmeQoNrCieONelkH3T+3lKIVR8PrF
rZIoK8O1f14dXoNRjFamCclylOO5V9fbUvNRvDMo3XbAoxxPBzXE5B6PQt3y
l7bN9W9wK4rtk+Acw1EvK7884wrov8venVY7BqXwr0dSblUgS38pJrB9DOJJ
W3hDIytw1z3Vyrx/DEQxM8i6rgLOeWeCvs+N4cmiVcT6I5XYKX9bjS37A/13
L8bf+KcK+xQztsL3B7w9L2XLC9Ug2b56ZeGOcVwNKXMWVaqBqn1kXoHKOIwS
tqpwG9Qgb39M0VuNcUgXsT52B9fgverqXXaG46ibu1QUzFUL/TH5Ag33cYjf
sa4YmawFO+XwO4/ycXxyt+l51ViHlRbLL6eemkCqhn2b2GQdhjvEQ6rNJvCE
60Zj+Lp6cDhiK/PSBFxCPb+5n66Han0qMXB7AqopUZnHafVwFpucP/l0Aub9
jGIPhwbYnbIgc3sm0Mm/NlzSqRF+v91ilM6zYTghuOq8dyOUVXxUv1mzUd0g
FBgT0YiFj5oH9R3YKIgW812V3Yh9lfn1anfYiJOQcp0hG2Hu/OOQfywbZsoH
LlTfbIJjqkwefyMbHWb2u51dm9FomG27YiOBoD4dhxj/ZiQSdI9xCQJ7r25L
L6LqzHBKpUyDJIEE9x5JntxmxGl4XAyQIWAZe1IkgWhGPd3rS7kygSGa8sK3
Ky3Y/+xHqtNRAj8N5qtFz9FwIkws5d0NAqnt7Tywp+Evnb9dBG8RMLbM07b2
oKHXNuqcowuBfMfrxVmxNHy9tdNe4g4BzzBGthaNBmPliFGDBwS4astjr51o
RUW99P75aAKCOqG2XzXbkMcRaB34kYB2ehHkTrUhJkVNLyGfoPL6x1/RVm2w
+pa7PKOAAKP+WI2dTxssHYoXCosJvDflVRAob8M/tvtt3/5LwOCq728LnXbs
vXyKXUUj8KA2p6nSpB1HOPkj4tuo9e3qy1Cya4fJqodqVzoIbJ7StFgR2I6j
H7jSZrsJEHcWSzOr21FSGX9umEUgItQ9ZP54B8R8Dn5cTRIoZ7+2sbXowJdi
pnTKJIHZU+0aDdc7UCA5W6cwTcVTRI18Ed4BiU1hldq/CCgkTZ/Ra+xAS2JU
HhYINLx3lIgz6kT4u4vVvrwklq9PmuWy6cRHs420Lj4S6rfrGq/d7kTGV2co
8JNI3iP/4OCTTrgvDOyvW03CqXR0eLitE/m0bgn6OhICLTY5auZdKC7gTDEW
J6E5fnDUyL4LgeKsKKeN1PwVmySd73SBb/zNzoebSDSqtz56G98Fnb/vmr7Z
TCLy2ZEbW7q78FfspZbKbSSEL0sr8J/vxtnU4p12O0kc8eayk7nWjUSWodtx
eRIuT+lJh+92w+HD86Ddu0i01sSs9X7WDc91h/hHd5OIVeBlT/d0Iz3VM0dd
mYTYn+HMXoserGF+gsYeEsfWfxuYu94D9Q69LoKyx86UjaJe1PiDCPPkvSS6
LM6Gnk7qAT1DX3BmH4mEsiqHSnoPCj2GfTw1SNR2v3o5wO6B9D6H2yIgMf/z
fvcyjl7oaaWYZVI+L7NX/8DmXuyfIriaNElsCn0jl2PZiyA1C85fh0icSPW/
VO/UC92Y3Hw3LRL3Si7G//DuhcsDSadflOmkGL90CjVfpXZgTJuKv3HwaDyz
F+uPB4tmHyHR4HhZ8jPZC6GAvkUxHRKcgVpmrZx0PM/eTt6nfLFwrkpAko5t
V94v09ElsXWzQ7rfRTqknbZxZx0lEdK7JSX0Bh0s+lO+OcozCW2x0d50CIm+
fXj4GIlKUa2AV4l0uPo8+NlEWbF91iszkw7BN3lDwnok4p5kueYV0dEUdtbU
mLLDerHL3zrp8Ggq/lxPmdZYb/F9hI5BIfpbXn0SGhF+xrRZOnYxdm8F5QD/
2efOVF8+9Vgg8SXl/9k0J86sY2BV7NTLZsqT2llxHmIM/LLIVOY4TsKcyzrS
R5aBgpB946coR/RphK1QZOB1mImYK+Xyr6JBQeoMmIZ1ND+l/Dt52m+NJgMi
zUyxAsq7vOvvR+owoIxwoo3yxQtv7oqcZGCz4dKZKcoxGn7uccYMPNlxQn/V
Cer/brS8vcmCgeyAJy2SlDkW9t54bsPAn3qSrUpZpVv4mtQ1BgL53JJ0KV8p
JOze3KLWP4h+E8qJcTXWuzwZaCixKLGm3OSeapnjy0BFwrCiI2Wes/fPqQYz
EKZA7HelvF/9nGlBJAOWvf5MT8pOG9SMNOIYkCgs2uxN+dWMoEFpCgN7w5Pn
/nMn7YfekXQGXrXjphflNXkVOtXvGaiuTQ24Q1nr8XOtE/kMOJgx9t+m7Hbz
LppKGAiXm4lwoPzW0HSfcQUDZmmEnxVlpqKyWmcdA9NTreJGlEUE1yhbtDJw
YTbLWJvyMWJ4V18PAwYWd1WUKN+rL9thO8DAQtThTxspf8hKlBr9wcDkdz7G
CsrDoe6S16cZ6OCteTdOxVf8mtGmyTkGNPkDpZsoG+jvFnPhYuLi5UO6uZT9
5FaK/FnJRL/n9LrHlCdGSlYvE2NC2lLpjT5lyao4Pv8tTDCXcty2UzZ5fZt7
pSwTphwiP+eo/fLFVm5BUJ2Jm+MX5lIo/zy84nc0mGgxV3p4g/KO7cxpUR0m
ahSLyzUoR7Ge/NhizMTKh7WmTdR+rSy9MfzqPDXuoJgdS3k+Rb9f1oYJrSCh
knOUbS2XdSveYuIQe/VSD5UP6j3Xag5GMjFxPF72G5U/WbLOwnZxTLArA/51
przNxeVC2HMmDFcFFmykLLDWa6ozh4nes6ff2lP5OKIZ8fetZibeR31qHaLy
2TL0sU1cFxOuShN63pRbO2LffWExMc1Q2SJCudQ5RWv1NBNyvMbEnsNU/r3M
sU8V6oPvL0NcpOqFAPkxr1a8D/aOXs0DVH3xP1C4NLmtD0dPXGiwpezcWhaF
f/pwT/wGr9VBEnq8tML2M33QfS8arvpf/bL/xc8f04entI3dtlT9c86fO6OY
1IddTcauX6n6OLycI9kkrQ+Gi8HBopRbnvGqvPzUh8TZBslSNRKZ9aLnDrT3
YS93rfRPFRIWyvvfOoqysI2r8QKLqs8tXpoz0VtYsDHXXRCmfKxWW7NIloWT
2tWSR6h6rmZzvIV3L4vaZwF8SXLU98RYzKeYsfDKjrRQliHx9Y+3fks8C4cu
tIwPUv2iRdR5xvEFC/M7PCuWUR5Uv5TMn8FChqCrv7gEiVWuh6cPFbCQlbrx
01Gq/xhP8SVkt7PA8lkxEyRKYnQscixMuB9hRv730gVJCPW8DDoa3o8dbTz/
mHOQkJqPVhl40o/F2y/mVJYI7Pn7Ya93Yj82czILVy0SsDh7RSk/sx8BS/Fy
H+cIpNPkO6Vq+2FIu9hOzBDQqPsou5xvAD5m4UPc4wTsSiori30GYKN0+H85
VP//vUdAUiVoAPd4antPt1LnpVyTO+mPBjD6kE9iqoVARvqg/OPkAcSFRS3I
NRGYiFoedaV4APJnlTQf1hK4Zad5XugPdQ8g9LX7vxDwFswnr9wYhJg1h/O+
19R5JmTpGN1tEBbb5U+kpBJ4vkLnpZH3IOq87Uy4XxEom6MZI3wQtpq5kxUp
BFYMThUKZQ4ixH+7qVo8gZCC3f4lw4P4mrdqT0kogaeX0sSELYdwxNhhrQt1
/nLQ+6t0p90QTL73e3g4Ut+rHHhF22kI2z7p1XteI9C3zD7/pvcQ7nF+Vrlz
hcDO57uMm5KHEDBatGhhRaCYkfconDmEwS1tk6UGBFjny3lXUveIfp27pkvy
BORNmTOLNiPo8DKz+VLORsI6LAZfG8G8yvqPol/YWPk9gVv09gjaaVfCHAvZ
GD5oKqT8YAQ7eFa2C+Sw8VKuXvHy8xHsPfCsRzaJDbGlIof63hEsVrG2fnRj
Y0VqbF+SySicdH5y75Nlo3fqZJ3m0TH4fBbbvNZ7ApN0UQWRM+MIEZUMNWL9
QESGx2UTEzY689jqvwTHILWW97gbFac/MQMepTtG8NHJOyMsiTrHBDemKzAG
0bI9iudU5CTaj9/ktPPrxzbfZpnzT6fgtP60nHMBE3sM6CpJ8dOQ+eA4KuHa
gx4nP43QkJ8QqBYekbVtQ86es6u/PZrB2+ysrfLaDRAxruh47fcL+fSy1nah
UqCP41HprVloHt/iqcWORjVPnhBHwiw4/v/5PyWAg1A=
          "]]}, Annotation[#, "Charting`Private`Tag$337236#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwd1nc8le0fB/ATDU+KZJeHUom2VVo+kodSRglZFSGrSLIqm7JHVkZCHqNS
DyorpWEVEWU1ZKtsh3Puc/C7/P46r/frnHPf93Vf3+/n+q63cDxpxUGj0aQW
0WgLn4xjl1J1HZ2U9VWcvd+NqCHIcrP0RyltdBlbDqc2FqJ+pNcuXOoM6s9e
dDnZXYYHgp332lOs0e0bkPiEoxJjhYfDHKQuQaKazisb+wZrZL6Uzbc6481M
iFlX8zscdA+RrU1xhYF6asLl9mqcq1bOjjH3xHWFkT5GQS38hCbFTKW8MM6a
vZNh+x6fCvRqY+g+uKvM11nPWQ/Lju0BM61++PRw7ph4UAOCZLqZr1KCYHF3
u49CTiOET5QXbfK+BSvbvu8Z2k3IcY93DDEPwZvDvr8VR5rwvlqzT08qAkJ5
UWORa5uR77Za13RxFH67rrN1yWuGW6j3owh6FCaPzTLeKLSAq9DIZrI1Brpz
tEbRg5+xhYPne3lKPLwuDJsHbmzFhOC1/aPhCRi13rGEP6EVZTKDieu9E2FA
cRjyLmvD8ROv9YLMk+B/ILen/0cbHO+51upI3UWaqVeBnXsHlIp6pPyE0zAi
8+RsT3sHaJbSqsaL7yE86MrzvL2dqHWLSwuj30OG/Cu241QnjNMcjcdbMyC4
ss426fQ3XB/Z0Fia8i8Csi5Sif0/cM69Y05PMBun6ffNm0W7oMYRvX04PBvN
OsdCu9GFlUJzIRLeOeCK6qzPDunC3YNt/wSY54Gl+aF289qfqAwLK9OSyodg
uXW2yZZuVPxq/8Cdm4+3rxkcnlrdKD+y+Xvt1sfILq10PuDUDRMOc1qmyBP0
DvS7PSvqhn4FS1JC/D/ItWg9Kt7bA83dsjbCMoXomLBrClTshbxUysQyPMeN
Il67ydk+yH1WZVn7PIds2iGe/0T6sStgiLOq8jnOXHryj7J8P3Z07xYMUCvG
0+1mQXUX+iF9t2kPTbMEF9r2dlQ09ENMaNkNxqkyzL0P3/8wdgBLljovG7J7
iULjXXv8Fw9h8Kg372T2SzS+e3ppQmQIdeFhwrO9L5G1If2++vYhVIc03761
8xVOrX6DNP0hhK4eyUzJfQV9z8cnRLOGICC54e3b1Eq83dWSehG/IHUofLFg
0Bto5vCfVj3/G0e9zQOfGlTjNc+yZFnnYchFVqqnu1RDnbaBpuU7DLG09Vzh
MdXYG1OyyDhqGGMVP0MsG6phs/aKxtH8YcTPmUfxq9dgelS3yntoGL03LJIv
K9bir/bPzRZmI/C5fv6/7QLvISnWb3x//yiee1h9y2pqgECN7jsF+zH8q2zf
umaiAc2Jw1MfL48hnvNyU+Tqj9h67HKElfsYXMOvv/PQ+4hZ+1WSPoFj2J1+
+5HW548I/ckuvZI2BpPergpPh0b82/dqwOTTGDq4eSMlnZqwUXjwrZXCONqN
7Xc6uzXDWLn54Odf4wjp1nBICGqGg8s1uYHRceyz25hbHtcMhQfXiulT40jx
+Ca5rKgZ2Uetb3HNj+Ncoo5QylgzXozbZS3hn8DAZ/nZd7YteBFsIG2+bwJ0
XXadqOlnFIxbBD8LmgCfRrh1pUorws53OUcJTWJVi1XBHpNOPKvOXXR76xQ2
rHPIDbT4AQFFEy9zQTqUvl18fyjmJyr+GnAubqajkvI53pLcgyB/531Nt6Zh
87KmpsKvD4OnJFJj/57BnfPZawTPDcBvPP/i0N0ZbD/9c3rOagiqs/GH59Yw
8H1Sp0Hl6G8Erv1gsN+XgYkforuE9IfBX94U+6ObgagHnhcMDUdhmfYkung3
E1K8XFruyWMQ29laIneNiWdOPg8i0saxZaXCtvdlTLRsur3sRMwEDuz1in0x
ysTRzSJKF+MnsOTyivHwMSYqpFNtgpMmkKSr9tpsnIncrdm1lRkT8E6wfcOa
YMJLtixUrnAC13Oi/pGdZkL6YA+vQMsErJ1lL/uxmbh+Sl6kVXASypoFaRVc
FDb6N0ub3ZlEvviBzmwJCqcLOGWtUyeh4qwWpbeOQthP+b2O6ZPgaLOunSOm
I/aob+4kLkfE1OhJUqhin7LLKpkEj3b+3MxGCrauXx4Mt08iq5RtJ7OFQr5t
+w6vNVPw0dt3RFaBwl7dHwppyVPYWsegvqpTKB9cMmyRNoV9Hw4ZmGtQUPbd
liWVOQXpngCtPmK1Ag/B/LwpXHpuverPEQraAgLT5SVTiBGO/TWlScGi7cjz
jtYpTMioc01pUwg9V7BXSICOi9or7+cYUPjmFKgcHkbck80zbkmB9urV3xlR
dNCeluhYW5H187LZz2Lp6O77ItlJbPfIuawrhY5BoSfeb6wpMIbOKik8oiPq
9GHhSBsKq8/vk+usp8Mr5VcbnwOFI/qjm2R4p5EvpXitypmC/f0tS5T5pxFZ
smzvjisUIiatek8KT0Oz/XFYHPHn6K8Z1yWmsdJsmm7hQp6/oVaicec0xj5G
NTOuUrihcV/UTXca9uucW1Z5UCjYa7TyXfQ03lJ9Tye8yPNOhKTExk3jg94N
Kw1vCnF55Vst70zjt0BWWTKx+9p1mpzp08hRppke9iHvc7Y/6NCTaVhImTpG
+FJ4/8qFVtFArs95eIo/gEKvRtTkM+4Z7HDJ4/t2i4IB7bVfEO8MFF7aV0gF
U6gunuQz4J+B43ZvASfiPBnDXfQ15HvNifJFIRScuMUvym+ZwYqr5xatD6Uw
2/Cg//GRGYhqzNjphFMQMqhuzwmcgZeJ+CmHaArqB+6rWAXPoFh1m0gesZuk
b/b68Bks4nAMHSBuG9l3NSl2BmM9P7zNYygk38xfFZY5gzfBNzNO3KawriRO
w7FyBtsOJv6QjKOwRczyqeLsDASUb5YHJ1Iw5jgkNkFjoLzoa+gL4tDBv/3z
FzMwnv1yxTjxn6JW3c0rGIjf5bbB8A6Fx1rH/oisZWD/1Qf/SiRRUPCW28BW
YuDh/FKBjGQK6KZFv3ZhINSXh+viXQqrvCfEG90ZUKv7UZZE3L229+G36wys
nqYJ1RAH6FfXMAIYKKVCX6xPo1BXE07bGceASqPs10Zig8drnJKfkpzwXWYv
nk5B+viKuZwSBk4FyEWoEzMHZ0OfvWCg8PRKo0vEKZI/s5veMaCqJNNfTvwz
LvvHsi8MpEkbdulnUHC4rqDjMs1ASrrRBbdMst+iUt98KQZGJJJ4k4h5nwnb
R84x8N7957ly4oJRKihvKRM+x9vn5olnLCoruoSYuJlatsX/PgW/o9o7tPYw
4Sl675RHFoVT/Sg33s+ExYdNCfHEm/xlNW3AxMB7WkAhcU25gLW/BhMi0n+Z
/SHm2dWZWmLIxPK6DB7jfyncEbJZKeXOhIZ7h++mbArFYrrHRkjuhXG6fd1P
3CapFPzMm4kv9NvDJ4hFdnIt0bjJxAGnKPkbxPEaOewL8Uwo85rqNhI/04ra
tyuJiTW6b8/1En/Rc3dnpDJRJLZTmkEseO7I1K0sJryZx7+K51CIdR/8nVvE
RP8Xh04b4iKvRhnnYiYWP32Y5UncHFB8YV85ydl3jpvDiFdH3+qpe8OE8dmX
J/KJo3OlO39/YoJurXp4lDiiw6ZuO8ndc6JF2edzSb516XJNTzHhnpUw7kRc
36+kXsFgYlyLNXmDeMUk12ttGtknK1/JBOJQ7twSR14KaSEHpKuI8/iiZ/bw
k3XMtuxpIq4T9lCkCZP38M2W9pV4+caj/0WJk31LqSofI751YCjnv+0UJFez
eoTyKOSoNvV7yFJgz216IUFcfaRko6oiyWmVGh1p4qX6wfc+HaCQ+PFxuhKx
lMnl70kqpO5i+c1ViNXNjcTOq1F4mLq1Q4M48KJM4uQxCmvlnzL1ie9f4ftS
pkP6jPufe6bEbz2Y/AF6FJxfvaOdJ14cVBspYEJBTuLL6CXijWH/1X89Q8F0
yN/LhfhwzB3uLAsKOz+dqfYg9rtre1PRjvTNkrab/sSqJtZ/tC9RGPHQML1F
zCly/oQNyVHOWeb3sIX7tZx95utK+jqSY1U0cUC06dpkTwotMi6jscRq2kY+
RSQXp1+Y30gkXsJt0FfvR9av+L0kmbiq+qTmQBDZdxf2/bvEQQE6j2kkpxr0
PyqnL6z/0HGBNZEUoh7Z3swkXjZ3xEOe5Az30e9eWcQ1pf98P55A9nEEm7KJ
b7mpHrYmuSBpku6ZQ3xEATnepK/zNAS9c4m5xvevvEP6qup8vlzewv8fKTkX
kLp0Ou0dt+BgO8XW9w8oOFYnZS9Yc7Pcgb7HFCyP8dsueHnvjvS5Qgof3Fjt
C9eru7d1qUgxhbk2K2rhfiFm0vay5aTPpyzrFp5Hc82mRs1XFJ5ocGv+S8zd
ul7R8i2F85r2HveJP9wWT7pRQ3LHIeF0BnGY7tr5+A/knBDKGEgjPr5SxPJJ
I6mvvFSpVOKVdQK1tS0U+vxTBJOIG4L4dvS0kf2hPymKJ444zHOb/ZXUi9Yw
521ibRo3Q/AnqYOm85yRxLwvlpnt7KMwUCFVGEIctXvRZothCrsLOzb4EutO
zoZeGyfXFRjrvUbM94Qai6WTOklIMnAljpGZKq2epbDNduaYHfHJ/jGJn4tY
yPha/3Gh3lZnDgdQS1jgKPFdbEZ8W2xAezsPC4q5tT7axKfaewrVV7NwOs+3
Rp1YIL5L5JwQCzyjZyqViWN5O7pjxFnY2NxYtZ04nqPelbGDBa9rgZJcxAYv
azv55Fk4omxCnyX9Jny9SmXrHhZsn/Z6TBIn0l8uPwMWqjyMEr8RJw0W3H2j
w0Lp9PNt+cTGWY85v+mxUCMlGplOvNbioc20IQvCTaWZscQpnVlyMudY0PVc
0utBnNqQWBXhxMIdZtprFWKxEhXOOBcWEgv75mUXfp85iGR3FriqKyckiZPd
lUqyfVjoNPJichLfkWx78CqKrN+rKew1yac4V+HoiScs8FXytMsSC5i/rGcU
sbCOaeD2/zw8dmH5fDEL+UZKH5YT31733J+7koVqz6VJ3aROo+sMXDc2sTCg
HlEdQRwuHm9iMM6CvKeMezvJ8xV/KSea0lkI0bt6s5I4bLKvxYLJQo6+oXYu
cWiNorbjIjYctcQ43YmDnT+r3OJjQ17yzPLVxIFVAlKlsmxc+aSTqkTOixuX
bo/97cyGN01ZRZf0jeZr2W/fr7IRP56QKEssItRYm+bBRtXJ5MLVxEUvVmSu
92XDtKdBtoWcf79WBOlvimKj9+N+3VPEpx+4l27LZ0PVpkjiKDkvFQbNAvb/
YmPOMNJ0CelTjgNsJ/YwG66dR9f/IOd1Y2SS2YtxNkrVtuQVE9vvad0NJhsJ
+qFc9sQZQbpDqlyzWOXOz/yQSs7/TYe1NaVmMVFgWBiYQuG3ubSIkcUsTLbV
f60j84SxQ+dWe+tZhP3jePYOcY1rBG7YzWLxW9PUC8RZoVPW6c6zuEg/eYyT
+OzTV0+H/GZhtmff5T1kPmnmMtLzzJxFfeyp8Zh4CmWPgyOSe2cx2vxiozDJ
pdDZX4u/W8/B24HbyJDk2JHLsTV5dnNwWFoQKEq8uO9gmNulOSQNXPHoJPOZ
14cofj7XOUyscXl2ZmFeS94tqRY4h67ayJsWZJ4z2OuHvMw5lCZcjTx7k+Ta
VVFP1645FE8bee/0p1D6R2OUx3geQjrzEjIkd3dHpITUmM3jVnBmz/eF+XTn
+CY/83ls7OO7Ekuc65xkSreZx7WtzvQ5d9IvjD+1nW7zKAhVC25yo+C6OOZ+
Ttw8JA3V6A5k3pUX+2qk2jSP1EcvxW84UdiR3dUnwJ7HYPIbzyYyX/8Paiue
lg==
          "]], 
         LineBox[CompressedData["
1:eJwBcQKO/SFib1JlAgAAACYAAAACAAAAaKwPjfUBAEDamU+uImz6P2gpYy+T
pQBAWIKROKFM+j/BVlt7QR4BQFae8/zEMfo/M1jqqRShAUC+dfRVVxH6P2yD
Rtc9GwJAyPNlRBTw+T+IZgj6AZMCQGSsdy/JzPk/vR1h/+oUA0CiBaq0naP5
P7n+hgMqjgNAqsZjZ5V6+T/Os0PqjREEQHTGZwRiS/k/xSBmxoySBEASqVBz
YBr5P4S3VaHhCgVArO3n5l3q+D9cItxeW40FQBBNtcPks/g/+7YvGysHBkBa
ppNV2H74P3wD6cyVfgZA3CG9/dlI+D8WJDlhJQAHQOxFuNwdDPg/d25W9Ap5
B0CGR53fe9H3Pxw2ZMgmewdAfNhM3HHQ9z/A/XGcQn0HQDhrdLRnz/c/Co2N
RHqBB0DQQT/3Us33P56rxJTpiQdATChNxyfJ9z/G6DI1yJoHQPzmkZXKwPc/
FGMPdoW8B0BoXMYM9a/3P7kqHUqhvgdAZrTogeau9z9e8ioevcAHQKhYHtPX
rfc/qIFGxvTEB0A4p9YJuqv3PzugfRZkzQdAwgkByXyn9z9i3eu2Qt4HQATY
ZpL7nvc/B6X5il7gB0A+qfnK6p33P6xsB1964gdASNHr39mc9z/2+yIHsuYH
QMgDAZ+3mvc/ihpaVyHvB0D4yXJycZb3Py/iZys98QdAijCEjl+V9z/UqXX/
WPMHQNyOGodNlPc/HjmRp5D3B0B87+gNKZL3P8MAn3us+QdAok0qnBaR9z9o
yKxPyPsHQChbAwcEkPc/DJC6I+T9B0Bow3hO8Y73P7FXyPf//wdAtjCPct6N
9z/OJCfK
          "]]}, Annotation[#, "Charting`Private`Tag$337236#2"]& ], {
        Dashing[{0, Small}], 
        LineBox[{{1.9990433673469385`, 1.651566962764031}, {2.000956632653061,
          1.6514002617856165`}}]}}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, 
     ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
         TagBox[
          StyleBox[
          "\"\\n Force \\n (\\!\\(\\*StyleBox[\\\"f\\\",FontSlant->\\\"Italic\
\\\"]\\))\"", 14, StripOnInput -> False], HoldForm], TraditionalForm], None}, {
        FormBox[
         TagBox[
          StyleBox[
          "\"Adversary Power \\n \
(\\!\\(\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\
\")\\\",FontSlant->\\\"Italic\\\"]\\)\"", 14, StripOnInput -> False], 
          HoldForm], TraditionalForm], None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     LabelStyle -> {FontSize -> 10, FontFamily -> "Times", 
       GrayLevel[0]}, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Force as a Function \\n of Adversary Power\"", 14, StripOnInput -> 
        False], TraditionalForm], PlotRange -> {{0., 1.53}, {0., 1.8}}, 
     PlotRangeClipping -> True, 
     PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"Unilateral\"", "\"With AUMF\"", "\"Observed\""}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> 10, FontFamily -> "Times", 
          GrayLevel[0]}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"FontSize", "\[Rule]", "10"}], ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                 
                 TemplateBox[<|"color" -> GrayLevel[0]|>, 
                  "GrayLevelColorSwatchTemplate"]}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.8595691771055098`*^9, {3.859569219757865*^9, 3.85956923384632*^9}, {
   3.859569287403575*^9, 3.859569315949252*^9}, 3.859569372606969*^9, 
   3.85959239490831*^9, 3.859592804921047*^9, 3.8595929026136913`*^9, 
   3.862971160254161*^9, 3.865294987399*^9, 3.868400750500387*^9, 
   3.8684010939084797`*^9, 3.868401157835814*^9, 3.8684012464135637`*^9, 
   3.868401747004484*^9, 3.868892977771821*^9, 3.868893137737378*^9, 
   3.8700215435622587`*^9, 3.8700905620747013`*^9, {3.8700905932747803`*^9, 
   3.870090616709106*^9}, 3.8700906495775623`*^9, 3.870091056786356*^9, 
   3.870091145620737*^9, {3.870093530273731*^9, 3.870093542720077*^9}, {
   3.870093585589527*^9, 3.8700935997525806`*^9}, 3.870093643026445*^9, 
   3.8700939917332087`*^9, {3.870094200339924*^9, 3.870094229670094*^9}, {
   3.870094268571455*^9, 3.87009429250589*^9}, 3.8700944588960867`*^9, {
   3.870094490832898*^9, 3.870094545833413*^9}, {3.8700945851166162`*^9, 
   3.870094602546216*^9}, 3.870096066312161*^9, 3.870096175807495*^9, 
   3.87009634740561*^9, {3.8700964475157423`*^9, 3.87009647161662*^9}, 
   3.870096505216015*^9, 3.870096572381488*^9, 3.8700967288776903`*^9, 
   3.870096843158063*^9, 3.870100951592588*^9, 3.906561982061974*^9, 
   3.906870070366706*^9, 3.9068705390211906`*^9, 3.906871324150392*^9, 
   3.906871422465259*^9, 3.906896355656061*^9, 3.90689928623871*^9, 
   3.906967678556485*^9, 3.906967722597374*^9, 3.907656412008731*^9, 
   3.907660769503179*^9, 3.907661488252862*^9, 3.908622308585845*^9, 
   3.908622747869052*^9, {3.908622827205266*^9, 3.908622871043709*^9}, 
   3.908629150236465*^9, 3.908629181335867*^9, {3.9086293604796667`*^9, 
   3.908629415361327*^9}, 3.908631071162711*^9, {3.9455283815469437`*^9, 
   3.945528386757114*^9}, 3.94552841997161*^9, 3.945528896203038*^9, 
   3.94552933678194*^9, 3.9456860245978813`*^9, 3.945952259198818*^9, 
   3.9459538722572527`*^9, {3.945953930931611*^9, 3.945953972493685*^9}},
 CellLabel->
  "Out[2374]=",ExpressionUUID->"6989d51a-80eb-4fd7-8620-245ce5078674"],

Cell[BoxData["\<\"/Users/patrickhulme/Dropbox/Replicate/War_and_\
Responsibility/Output/Figure_6.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.8595691771055098`*^9, {3.859569219757865*^9, 3.85956923384632*^9}, {
   3.859569287403575*^9, 3.859569315949252*^9}, 3.859569372606969*^9, 
   3.85959239490831*^9, 3.859592804921047*^9, 3.8595929026136913`*^9, 
   3.862971160254161*^9, 3.865294987399*^9, 3.868400750500387*^9, 
   3.8684010939084797`*^9, 3.868401157835814*^9, 3.8684012464135637`*^9, 
   3.868401747004484*^9, 3.868892977771821*^9, 3.868893137737378*^9, 
   3.8700215435622587`*^9, 3.8700905620747013`*^9, {3.8700905932747803`*^9, 
   3.870090616709106*^9}, 3.8700906495775623`*^9, 3.870091056786356*^9, 
   3.870091145620737*^9, {3.870093530273731*^9, 3.870093542720077*^9}, {
   3.870093585589527*^9, 3.8700935997525806`*^9}, 3.870093643026445*^9, 
   3.8700939917332087`*^9, {3.870094200339924*^9, 3.870094229670094*^9}, {
   3.870094268571455*^9, 3.87009429250589*^9}, 3.8700944588960867`*^9, {
   3.870094490832898*^9, 3.870094545833413*^9}, {3.8700945851166162`*^9, 
   3.870094602546216*^9}, 3.870096066312161*^9, 3.870096175807495*^9, 
   3.87009634740561*^9, {3.8700964475157423`*^9, 3.87009647161662*^9}, 
   3.870096505216015*^9, 3.870096572381488*^9, 3.8700967288776903`*^9, 
   3.870096843158063*^9, 3.870100951592588*^9, 3.906561982061974*^9, 
   3.906870070366706*^9, 3.9068705390211906`*^9, 3.906871324150392*^9, 
   3.906871422465259*^9, 3.906896355656061*^9, 3.90689928623871*^9, 
   3.906967678556485*^9, 3.906967722597374*^9, 3.907656412008731*^9, 
   3.907660769503179*^9, 3.907661488252862*^9, 3.908622308585845*^9, 
   3.908622747869052*^9, {3.908622827205266*^9, 3.908622871043709*^9}, 
   3.908629150236465*^9, 3.908629181335867*^9, {3.9086293604796667`*^9, 
   3.908629415361327*^9}, 3.908631071162711*^9, {3.9455283815469437`*^9, 
   3.945528386757114*^9}, 3.94552841997161*^9, 3.945528896203038*^9, 
   3.94552933678194*^9, 3.9456860245978813`*^9, 3.945952259198818*^9, 
   3.9459538722572527`*^9, {3.945953930931611*^9, 3.945953972638802*^9}},
 CellLabel->
  "Out[2375]=",ExpressionUUID->"31ef51cc-f0e5-4123-945a-78b307b94e02"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.9455288488392067`*^9, 3.9455288673729067`*^9}, 
   3.94595392016018*^9},
 NumberMarks->False,
 CellLabel->
  "In[2376]:=",ExpressionUUID->"66802ce5-d8a1-4ff9-a3f1-7c6b78593c32"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.859411839760107*^9, 3.85941183991786*^9}},
 CellLabel->
  "In[2377]:=",ExpressionUUID->"2f6d756a-87c4-4ca5-a68b-024e9b989808"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"k", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"s", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"t", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"c", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"a", "=."}], "\[IndentingNewLine]", 
   RowBox[{"beta", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"f", "=."}], "\[IndentingNewLine]", 
   RowBox[{"d", "=."}]}]}]], "Input",
 CellChangeTimes->{{3.814667734275702*^9, 3.814667735749588*^9}, {
  3.814822303228612*^9, 3.8148223243281517`*^9}, {3.9086292817510138`*^9, 
  3.908629284032724*^9}, {3.908629319300893*^9, 3.9086293195396833`*^9}, {
  3.945528332142494*^9, 3.9455283369862556`*^9}},
 CellLabel->
  "In[2378]:=",ExpressionUUID->"e8b9c379-6ef0-4186-af82-3db5efdacecb"]
},
WindowSize->{Full, Full},
WindowMargins->{{15, Automatic}, {Automatic, -1}},
FrontEndVersion->"13.2 for Mac OS X ARM (64-bit) (January 30, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"393c5c0d-1d44-4dd0-84ec-c5834a354026"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 517, 12, 136, "Input",ExpressionUUID->"8b71bbd9-b252-4b5f-8558-0594532fc725"],
Cell[1100, 36, 3667, 53, 48, "Output",ExpressionUUID->"260f6c8d-59fe-4c0f-ab99-4743dea2130a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4804, 94, 728, 21, 30, "Input",ExpressionUUID->"658034bb-bd3c-4942-b763-2115e93c5e52"],
Cell[5535, 117, 658, 20, 65, "Output",ExpressionUUID->"4e3abbcf-bb3b-4065-92cf-64a791a1b372"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6230, 142, 2409, 60, 430, "Input",ExpressionUUID->"54bb1ff8-b441-4562-8592-5aab8b43e6fe"],
Cell[8642, 204, 275, 6, 48, "Output",ExpressionUUID->"1c68779d-fcb5-461b-abeb-3e6da094a4b3"],
Cell[8920, 212, 273, 6, 48, "Output",ExpressionUUID->"cc5b9547-9ec2-4114-91e3-f8fb45745b81"],
Cell[9196, 220, 233, 4, 48, "Output",ExpressionUUID->"e80376e5-19a8-4c34-9b8d-49dfffe874f7"],
Cell[9432, 226, 306, 7, 48, "Output",ExpressionUUID->"6e3bb941-9037-4f3a-8df2-766ea62093b0"],
Cell[9741, 235, 425, 11, 65, "Output",ExpressionUUID->"0531ae30-9c6f-4bab-a33e-a0626257229f"],
Cell[10169, 248, 419, 11, 65, "Output",ExpressionUUID->"2a63e006-e12f-469a-9324-59b31d644cf7"],
Cell[10591, 261, 260, 5, 48, "Output",ExpressionUUID->"c6bba75a-3e6e-4912-b0c2-48f63a241495"],
Cell[10854, 268, 258, 5, 48, "Output",ExpressionUUID->"f5017cec-2ff8-40ab-9275-50f54cb70e8c"],
Cell[11115, 275, 258, 5, 48, "Output",ExpressionUUID->"fc0bdfca-57f6-4a03-a6f3-8cbaaa2a0a01"],
Cell[11376, 282, 306, 7, 48, "Output",ExpressionUUID->"792aa4e0-8c3f-4ccf-b70a-2aa40e889847"],
Cell[11685, 291, 258, 5, 48, "Output",ExpressionUUID->"007947fa-8748-4cc0-a06d-4622bb34500b"],
Cell[11946, 298, 258, 5, 48, "Output",ExpressionUUID->"0ea18451-5950-4039-8c66-c0ab95f3690b"],
Cell[12207, 305, 255, 5, 48, "Output",ExpressionUUID->"b6fd608e-6c1b-4e64-a02d-de456200a71a"],
Cell[12465, 312, 255, 5, 48, "Output",ExpressionUUID->"42996cf2-1e89-4a65-a435-180287f80c25"],
Cell[12723, 319, 257, 5, 48, "Output",ExpressionUUID->"d000d8a8-8143-4f69-9cfd-c3e77e569d33"],
Cell[12983, 326, 265, 5, 48, "Output",ExpressionUUID->"fdd8a74c-1d66-469a-92cd-aceec3aa6a36"],
Cell[13251, 333, 265, 5, 48, "Output",ExpressionUUID->"2d82e802-338f-4e71-9cbd-998b5356f241"],
Cell[13519, 340, 265, 5, 48, "Output",ExpressionUUID->"fc52792b-e70c-4076-aafb-c46d794898a2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13821, 350, 184, 3, 30, "Input",ExpressionUUID->"ea345e6b-d5a6-44b5-9abd-5d85abb9555a"],
Cell[14008, 355, 3536, 52, 48, "Output",ExpressionUUID->"fd5b98e3-6a59-48b1-a61a-6d7f5db3afbf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17581, 412, 244, 5, 30, "Input",ExpressionUUID->"8ae6ab1f-8a70-426f-bab8-142a64cadb04"],
Cell[17828, 419, 3462, 52, 48, "Output",ExpressionUUID->"3840a417-d2f1-4363-add1-417ba24481a3"]
}, Open  ]],
Cell[21305, 474, 225, 5, 30, "Input",ExpressionUUID->"7289fde1-7696-493d-9129-055ea222d13b"],
Cell[21533, 481, 178, 3, 30, "Input",ExpressionUUID->"491f5257-8116-48b4-917f-552188ea19ee"],
Cell[21714, 486, 178, 3, 30, "Input",ExpressionUUID->"c1fa1cc6-53c7-4f5b-87d0-c39caa201e86"],
Cell[CellGroupData[{
Cell[21917, 493, 597, 12, 52, "Input",ExpressionUUID->"872ab524-b5ad-49f7-945c-3dc0caf0a113"],
Cell[22517, 507, 3537, 52, 65, "Output",ExpressionUUID->"22ec67f1-49ee-47e3-8a1d-bccee72ea6ba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26091, 564, 185, 3, 30, "Input",ExpressionUUID->"8d10f708-dd52-48b7-8837-9851b0d0a3c2"],
Cell[26279, 569, 3480, 54, 65, "Output",ExpressionUUID->"017c2580-a6f1-4802-980f-365ff7c09f64"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29796, 628, 326, 8, 30, "Input",ExpressionUUID->"9f9e1ad6-f8cf-4873-a988-51cab06582b5"],
Cell[30125, 638, 3513, 55, 69, "Output",ExpressionUUID->"8718518b-6124-42cf-a1ae-b35b45715f39"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33675, 698, 520, 14, 30, "Input",ExpressionUUID->"7f016cc2-ccdc-45ea-910d-079d99f81495"],
Cell[34198, 714, 3815, 66, 81, "Output",ExpressionUUID->"70df70bf-6627-4bd3-88b9-57365e24a22e"]
}, Open  ]],
Cell[38028, 783, 173, 4, 30, "Input",ExpressionUUID->"3908e3fa-864e-4660-a1bb-a94309da703c"],
Cell[CellGroupData[{
Cell[38226, 791, 394, 10, 58, "Input",ExpressionUUID->"52930e94-608a-41f5-8721-3a912ac50b3a"],
Cell[38623, 803, 3368, 52, 71, "Output",ExpressionUUID->"a3d14a2b-e748-4824-94df-ed38f37d41b3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42028, 860, 481, 11, 30, "Input",ExpressionUUID->"0b4e30f3-a84d-425e-90b3-db9eeba5a40a"],
Cell[42512, 873, 3389, 54, 95, "Output",ExpressionUUID->"a59947b9-429d-402c-ae6d-78a6150fe465"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45938, 932, 173, 4, 30, "Input",ExpressionUUID->"a21d9971-e38f-41a3-ba2e-020f7ddc3459"],
Cell[46114, 938, 2045, 32, 49, "Output",ExpressionUUID->"7b9cd27d-6650-442a-b197-4d17c7ba0977"]
}, Open  ]],
Cell[48174, 973, 201, 4, 30, "Input",ExpressionUUID->"d031db29-c301-4b31-b24d-ad8190a86451"],
Cell[48378, 979, 276, 5, 30, "Input",ExpressionUUID->"db8ba6cf-038f-4eaf-9e0c-ebb3c3c5bdd4"],
Cell[48657, 986, 178, 3, 30, "Input",ExpressionUUID->"d79aa3aa-564f-4611-91b2-dae2a7ffaf1f"],
Cell[CellGroupData[{
Cell[48860, 993, 150, 3, 30, "Input",ExpressionUUID->"90cbca63-54ce-482b-8f94-5b51905db857"],
Cell[49013, 998, 2773, 43, 71, "Output",ExpressionUUID->"3840328e-2edd-4001-bb13-4b9a1eb5eb7d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51823, 1046, 283, 6, 52, "Input",ExpressionUUID->"612088e9-8534-4a64-87b2-acfe299ee834"],
Cell[52109, 1054, 1251, 25, 95, "Output",ExpressionUUID->"fa075fe1-4230-4a43-82aa-9acb24b6ce4b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53397, 1084, 252, 6, 30, "Input",ExpressionUUID->"5f8ddee5-188d-4c04-b524-882dd2f81677"],
Cell[53652, 1092, 1206, 20, 49, "Output",ExpressionUUID->"1acc48bf-9dca-47e3-8c5b-c0f5241b32d1"]
}, Open  ]],
Cell[54873, 1115, 175, 3, 30, "Input",ExpressionUUID->"aa501022-c467-4505-b8c6-09a87f5db740"],
Cell[CellGroupData[{
Cell[55073, 1122, 611, 14, 73, "Input",ExpressionUUID->"60db8c4c-67ca-48f5-a3c2-b360d422d61f"],
Cell[55687, 1138, 1403, 27, 51, "Output",ExpressionUUID->"722ea81d-7a87-481c-b6c4-d73b8c566e63"]
}, Open  ]],
Cell[57105, 1168, 276, 5, 30, "Input",ExpressionUUID->"15b7569a-4c0f-468d-af46-15dfe41503c2"],
Cell[CellGroupData[{
Cell[57406, 1177, 332, 7, 52, "Input",ExpressionUUID->"c2827d4b-2d6f-4745-8b4d-d3d17495967b"],
Cell[57741, 1186, 2392, 42, 51, "Output",ExpressionUUID->"fc8d713d-3c72-4330-94df-9a5335e5f605"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60170, 1233, 335, 7, 52, "Input",ExpressionUUID->"af6fedb0-9adb-4cc3-91e0-57ae776c8017"],
Cell[60508, 1242, 2763, 47, 51, "Output",ExpressionUUID->"0e5c047b-b9cf-4743-8823-b6e296a10b74"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63308, 1294, 280, 7, 52, "Input",ExpressionUUID->"c4ebf969-154c-4a1b-968a-d5b20b876267"],
Cell[63591, 1303, 2120, 37, 51, "Output",ExpressionUUID->"6cd18b2b-6d17-459b-b37c-0c87e5ca1ae4"]
}, Open  ]],
Cell[65726, 1343, 477, 8, 199, "Input",ExpressionUUID->"209a4fa8-5ff9-4665-b8eb-9669e6c41658"],
Cell[66206, 1353, 176, 3, 30, "Input",ExpressionUUID->"2539e8a9-875c-4c6b-a212-f0876e38250d"],
Cell[66385, 1358, 712, 14, 178, "Input",ExpressionUUID->"3ce0f482-0d8f-4021-93c5-00d15a1c9cfb"],
Cell[67100, 1374, 655, 14, 115, "Input",ExpressionUUID->"0f2decd4-ce6f-4e98-a98d-e11b2c693a6c"],
Cell[67758, 1390, 364, 8, 73, "Input",ExpressionUUID->"eede7c45-6d04-415a-a719-b79aa9169d4e"],
Cell[CellGroupData[{
Cell[68147, 1402, 218, 4, 30, "Input",ExpressionUUID->"7a39e68e-35d4-48db-9b55-9178b2a81eb9"],
Cell[68368, 1408, 3102, 52, 74, "Output",ExpressionUUID->"7d67a02e-51f6-49cc-a56a-c9671fcef183"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71507, 1465, 544, 13, 30, "Input",ExpressionUUID->"bc92607b-087f-4aac-a50b-058242702c64"],
Cell[72054, 1480, 3558, 65, 82, "Output",ExpressionUUID->"13790c10-f77b-48a9-b583-2618fc8e4bca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75649, 1550, 670, 18, 59, "Input",ExpressionUUID->"864892cb-6892-4d45-baf6-18193ce1f150"],
Cell[76322, 1570, 2884, 49, 72, "Output",ExpressionUUID->"6372d40a-ee9d-473e-a15d-c4940b55e1c2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79243, 1624, 308, 7, 30, "Input",ExpressionUUID->"09f6e0b5-1f48-45dc-b103-50c6a52c4ee3"],
Cell[79554, 1633, 1369, 26, 73, "Output",ExpressionUUID->"25c577eb-e068-4967-9823-82940c3caf64"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80960, 1664, 327, 8, 30, "Input",ExpressionUUID->"3361f1a4-924c-4dbb-9da1-e1acb09ed6dc"],
Cell[81290, 1674, 2280, 45, 99, "Output",ExpressionUUID->"297066da-eb5a-4cbf-a391-0640b784d6db"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83607, 1724, 304, 7, 30, "Input",ExpressionUUID->"f6d033fb-5002-4171-a3d0-fd716eaf955c"],
Cell[83914, 1733, 1927, 32, 73, "Output",ExpressionUUID->"bb363616-e588-456a-86b9-18664bfa54cf"]
}, Open  ]],
Cell[85856, 1768, 202, 4, 30, "Input",ExpressionUUID->"8bf93e66-2499-482e-a419-2aca10c16fc4"],
Cell[86061, 1774, 176, 3, 30, "Input",ExpressionUUID->"4211e902-c9dd-4fed-b6cc-b65b67f347ad"],
Cell[86240, 1779, 174, 3, 30, "Input",ExpressionUUID->"be9bdca5-5ea8-4981-847f-f38ce49f4acd"],
Cell[86417, 1784, 226, 4, 30, "Input",ExpressionUUID->"9df41c0c-4635-4e2a-b337-0714fee02de3"],
Cell[86646, 1790, 178, 3, 30, "Input",ExpressionUUID->"4b07b22a-6163-4009-aa0c-f161f8560616"],
Cell[86827, 1795, 174, 3, 30, "Input",ExpressionUUID->"1614fa0f-8ee5-4506-9cfa-bb269ac6c3da"],
Cell[87004, 1800, 180, 3, 30, "Input",ExpressionUUID->"f2339b38-e06c-4272-9d1e-ae93e2f38a55"],
Cell[87187, 1805, 837, 18, 52, "Input",ExpressionUUID->"15c80f76-344e-4f32-8ac1-9e031aa640c7"],
Cell[CellGroupData[{
Cell[88049, 1827, 366, 8, 94, "Input",ExpressionUUID->"02cf2b26-0e07-4afb-b35e-4558dad29e9a"],
Cell[88418, 1837, 2285, 39, 73, "Output",ExpressionUUID->"e506bc2d-d2bb-4c0a-90aa-30975e668e33"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90740, 1881, 336, 8, 30, "Input",ExpressionUUID->"11e78b57-c317-44c5-9909-16bc86f5da76"],
Cell[91079, 1891, 1902, 31, 73, "Output",ExpressionUUID->"4c357d9c-18b0-477b-a143-8e55758510bd"]
}, Open  ]],
Cell[92996, 1925, 402, 7, 136, "Input",ExpressionUUID->"077fcfac-13d8-4552-a3cb-7f018965a606"],
Cell[CellGroupData[{
Cell[93423, 1936, 307, 7, 52, "Input",ExpressionUUID->"9cd83f23-3f39-4bdf-9a3c-c077d61d5457"],
Cell[93733, 1945, 363, 10, 73, "Output",ExpressionUUID->"6ebf380e-2ddb-47c3-b398-c812288cef0f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94133, 1960, 311, 9, 60, "Input",ExpressionUUID->"e4fec6b0-32bf-4a0b-9b0c-3b53ff28691d"],
Cell[94447, 1971, 389, 11, 73, "Output",ExpressionUUID->"632f8f84-9c34-4735-b81c-bce0ed036a0a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94873, 1987, 736, 17, 94, "Input",ExpressionUUID->"9345e6e5-6394-4a5a-962c-ac28e8834dcd"],
Cell[95612, 2006, 2109, 39, 73, "Output",ExpressionUUID->"ff3c8a0b-4b03-4c0d-a4e4-5f032a5f39ba"]
}, Open  ]],
Cell[97736, 2048, 1939, 34, 808, "Input",ExpressionUUID->"d710807b-edbe-41a9-ade3-4bfa09c0cfe1"],
Cell[CellGroupData[{
Cell[99700, 2086, 475, 10, 115, "Input",ExpressionUUID->"d6e966f9-f993-44cd-80e9-4577c96e5d4e"],
Cell[100178, 2098, 1852, 34, 74, "Output",ExpressionUUID->"970b16d4-d615-4bd1-994f-5d3a2802c49e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102067, 2137, 604, 14, 94, "Input",ExpressionUUID->"f890d0a4-3f49-4f05-b0e2-c9071c71f847"],
Cell[102674, 2153, 2176, 46, 82, "Output",ExpressionUUID->"8f5948ef-a05c-431d-9efc-3aa720936aa2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104887, 2204, 775, 20, 146, "Input",ExpressionUUID->"85aabfd1-343f-48c2-9707-4ab8acf5603d"],
Cell[105665, 2226, 1964, 36, 72, "Output",ExpressionUUID->"3e8d9ac3-83d0-44f6-acf4-3c11547c6da2"],
Cell[107632, 2264, 1962, 36, 72, "Output",ExpressionUUID->"6ae8187f-b13a-457d-ba89-90d8084c3556"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109631, 2305, 166, 4, 30, "Input",ExpressionUUID->"a309d6c0-27b9-4fc4-9b5b-fd3dd9dc6793"],
Cell[109800, 2311, 460, 13, 73, "Output",ExpressionUUID->"53ea9d6d-168d-41fd-b1a4-3212ef79a13a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[110297, 2329, 262, 7, 30, "Input",ExpressionUUID->"f7206a83-6240-4c38-aea4-83ef51aa96fd"],
Cell[110562, 2338, 1974, 43, 95, "Output",ExpressionUUID->"403b8535-9455-4ea4-a136-6f5fc472e6c5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112573, 2386, 302, 7, 30, "Input",ExpressionUUID->"caeb1014-6c63-4bbd-9667-a1cf4706d9ad"],
Cell[112878, 2395, 1527, 27, 73, "Output",ExpressionUUID->"bd5a2bd3-9720-4e89-9766-a4c0556fca17"]
}, Open  ]],
Cell[114420, 2425, 352, 6, 73, "Input",ExpressionUUID->"4c367a33-aa4f-4121-bf92-a4d3ff3cb040"],
Cell[CellGroupData[{
Cell[114797, 2435, 407, 9, 52, "Input",ExpressionUUID->"0e1f29f5-cbe7-4060-ac1b-fed4f0510552"],
Cell[115207, 2446, 1592, 27, 73, "Output",ExpressionUUID->"a4ef1050-dfbd-4861-9485-8beb9ab5194e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116836, 2478, 254, 6, 30, "Input",ExpressionUUID->"ea4d044a-ef98-4f02-8b0c-4086adef1586"],
Cell[117093, 2486, 1024, 19, 73, "Output",ExpressionUUID->"36c07382-8851-4928-8f5f-721dd03ff347"]
}, Open  ]],
Cell[CellGroupData[{
Cell[118154, 2510, 491, 11, 136, "Input",ExpressionUUID->"f2ed2750-aded-4a73-a2a0-dbdab40473f8"],
Cell[118648, 2523, 1570, 27, 73, "Output",ExpressionUUID->"dfeadfef-4407-4b2c-92ff-55fc46c3948a"]
}, Open  ]],
Cell[120233, 2553, 232, 4, 73, "Input",ExpressionUUID->"bfe0bbba-e50f-4a9f-b534-1ee934392963"],
Cell[CellGroupData[{
Cell[120490, 2561, 516, 13, 52, "Input",ExpressionUUID->"e4b5e3a7-3fb7-4b1a-9798-e878a4eb8a36"],
Cell[121009, 2576, 1767, 34, 73, "Output",ExpressionUUID->"57ec2182-2381-4780-9ca3-efcabcc7b565"]
}, Open  ]],
Cell[122791, 2613, 883, 17, 304, "Input",ExpressionUUID->"ca7b1d9a-a279-4147-9b0b-6a2bc372adc5"],
Cell[123677, 2632, 1015, 21, 178, "Input",ExpressionUUID->"4e48cdff-ecdb-461e-9cd2-88f7a81c24d4"],
Cell[CellGroupData[{
Cell[124717, 2657, 1128, 25, 157, "Input",ExpressionUUID->"125ae15c-8aa3-4f93-8e8d-98526880df05"],
Cell[125848, 2684, 1184, 25, 51, "Output",ExpressionUUID->"d0a68800-f9f8-4fb4-ba76-0fe9bd0bccbd"],
Cell[127035, 2711, 1283, 28, 73, "Output",ExpressionUUID->"8fa910fa-4712-4035-bd95-1740250e6284"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128355, 2744, 724, 17, 115, "Input",ExpressionUUID->"cd583371-b9c2-4a67-8fbb-557e0e3afa2f"],
Cell[129082, 2763, 1471, 36, 78, "Output",ExpressionUUID->"d47acafd-da23-492d-bdaa-f0c9fc86d364"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130590, 2804, 644, 14, 157, "Input",ExpressionUUID->"6609b1a3-d8bc-4ae2-9fe3-33f73c0603c1"],
Cell[131237, 2820, 1001, 22, 51, "Output",ExpressionUUID->"1b026af1-d9b4-4344-a4ac-41d7417964de"],
Cell[132241, 2844, 1102, 25, 73, "Output",ExpressionUUID->"6bbaea7e-735b-4c39-8328-0164d70597df"],
Cell[133346, 2871, 1052, 23, 73, "Output",ExpressionUUID->"799b8a22-adee-4bdf-b765-965cfd3504cd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134435, 2899, 266, 4, 73, "Input",ExpressionUUID->"b87dc459-b2fd-4804-abd3-7739672dfe12"],
Cell[134704, 2905, 844, 16, 73, "Output",ExpressionUUID->"412cf22a-5fe8-4841-8ea8-870522d2e952"],
Cell[135551, 2923, 764, 13, 49, "Output",ExpressionUUID->"eef52f6e-8015-4673-8788-fb7f1e41b79d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136352, 2941, 646, 16, 94, "Input",ExpressionUUID->"c4c4c247-7fd8-4a7c-966b-a259a78a6c84"],
Cell[137001, 2959, 1272, 36, 78, "Output",ExpressionUUID->"4a55d36d-98e8-47bc-83bb-0ff61e46df48"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138310, 3000, 417, 9, 94, "Input",ExpressionUUID->"1e1f135f-2325-4c2b-88f5-086032f00984"],
Cell[138730, 3011, 1196, 24, 73, "Output",ExpressionUUID->"6d96bf63-3ffb-4e16-8c59-14c5501e7879"]
}, Open  ]],
Cell[CellGroupData[{
Cell[139963, 3040, 522, 11, 52, "Input",ExpressionUUID->"4bb35295-c917-4019-9551-c1712f72b92b"],
Cell[140488, 3053, 2363, 49, 104, "Output",ExpressionUUID->"6d27c138-9d64-4930-a4d3-b6bdbfab4041"],
Cell[142854, 3104, 1917, 36, 73, "Output",ExpressionUUID->"03db395c-bdf1-4ee0-8e5d-7859a6e08e9e"]
}, Open  ]],
Cell[144786, 3143, 283, 5, 73, "Input",ExpressionUUID->"b986f9eb-aca6-40b1-875d-dd722ebcbe36"],
Cell[CellGroupData[{
Cell[145094, 3152, 1668, 40, 136, "Input",ExpressionUUID->"e5c537c9-22e9-484e-9369-aa7ee0658924"],
Cell[146765, 3194, 2930, 68, 184, "Output",ExpressionUUID->"dc99dff6-33b6-4c56-ba50-94e6bc2872ab"],
Cell[149698, 3264, 3061, 72, 181, "Output",ExpressionUUID->"44d700cc-2de2-47b5-9ada-3655900995d1"],
Cell[152762, 3338, 3059, 72, 181, "Output",ExpressionUUID->"bba70fe0-a997-4e88-9218-af64fdd202c0"]
}, Open  ]],
Cell[155836, 3413, 178, 3, 30, "Input",ExpressionUUID->"86fb387e-62e4-42ba-90f4-2fde5b4b00a5"],
Cell[CellGroupData[{
Cell[156039, 3420, 3306, 49, 283, "Input",ExpressionUUID->"6081c5fe-8e0a-4dce-9bb2-b09509a02e88"],
Cell[159348, 3471, 1263, 19, 48, "Output",ExpressionUUID->"0f6cc8d2-da15-4efe-b26c-2d40fe2e2f94"],
Cell[160614, 3492, 1264, 19, 48, "Output",ExpressionUUID->"688c3ba8-cd07-47ec-8a4a-8eeec5134f86"],
Cell[161881, 3513, 1263, 19, 48, "Output",ExpressionUUID->"ac0eea45-5255-4ed7-b263-f1ec94079503"],
Cell[163147, 3534, 1261, 19, 48, "Output",ExpressionUUID->"74eb12fc-da7b-484b-a3aa-593386123dac"],
Cell[164411, 3555, 1261, 19, 48, "Output",ExpressionUUID->"888d8229-d97b-4ce2-abaa-39389f32f455"],
Cell[165675, 3576, 1258, 19, 48, "Output",ExpressionUUID->"7320c613-94b7-4320-86a5-c820ce29bc99"]
}, Open  ]],
Cell[CellGroupData[{
Cell[166970, 3600, 7571, 166, 619, "Input",ExpressionUUID->"a86bc087-abc0-48b5-a597-06c8965da632"],
Cell[174544, 3768, 41972, 770, 290, "Output",ExpressionUUID->"2814e7d9-a347-4e0c-9858-ac63d426a53e"],
Cell[216519, 4540, 23147, 432, 294, "Output",ExpressionUUID->"6989d51a-80eb-4fd7-8620-245ce5078674"],
Cell[239669, 4974, 2165, 31, 48, "Output",ExpressionUUID->"31ef51cc-f0e5-4123-945a-78b307b94e02"]
}, Open  ]],
Cell[241849, 5008, 226, 5, 30, "Input",ExpressionUUID->"66802ce5-d8a1-4ff9-a3f1-7c6b78593c32"],
Cell[242078, 5015, 229, 4, 73, "Input",ExpressionUUID->"2f6d756a-87c4-4ca5-a68b-024e9b989808"],
Cell[242310, 5021, 928, 17, 304, "Input",ExpressionUUID->"e8b9c379-6ef0-4186-af82-3db5efdacecb"]
}
]
*)

